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Introducción general 


COMENTARIOS A ESTE CURSO 


Cualquier ordenador necesita “programas”' que le digan qué debe hacer y có- 
mo debe hacerlo. Esto quiere decir que, cuando usted se pone frente a una 
máquina de este tipo, se le ofrecen dos opciones: 


1. Coger un programa ya confeccionado y “dárselo”” al computador. 


2. Desarrollar un programa y volver al punto anterior. 


De aquí se puede deducir que es posible manejar un ordenador sin saber pro- 
gramarlo, y esto es cierto si lo que se pretende de él son aplicaciones concretas 
tales como realizar una facturación o llevar un fichero de historiales clínicos o, 
simplemente, jugar a las damas. 


Para estos casos basta con proveerse de la biblioteca de programas adecuada 
y seguir las instrucciones espec fficas de cada caso. 


Si por el contrario usted tiene interés en crear sus propios programas deberá 
conocer algún lenguaje de programación. 


No cabe duda que, según la envergadura del programa que se pretenda desa- 
rrollar, algunas veces será imprescindible la colaboración de expertos profesio- 
nales en este área, pero, llevando el tema a los términos en que se mueven las 
personas de nuestra época, existen un sinfín de aplicaciones cotidianas del or- 
denador que pueden ser realizadas por el propio usuario por razones de como- 
didad y precio. 


BASIC es el lenguaje de programación más popular de cuantos existen, tanto 
por su facilidad de aprendizaje como por sus caracter ísticas. 


BASIC es un lenguaje que “entienden” la práctica totalidad de los microor- 
denadores disponibles en el mercado. 


Y BASIC son los comandos con que opera el ZX81. 


El Z2X81 de SINCLAIR, por sus extraordinarias posibilidades, su precio ase- 
quible y la gran cantidad de programas existentes, ha sido seleccionado para 
desarrollar este curso. 


Nosotros consideramos que tratar de aprender programación sin ordenador 
no pasa de una introducción al tema. 


Por esta razón le recomendamos se provea de un ZX81 (si aún no lo tiene). 


Este computador es chiquitito pero robusto y, salvo golpes desafortunados, 
no suele estropearse. Por tanto no dude en comprarlo de segunda mano si este 
camino lo considera mejor. 


COMENTARIOS A ESTE CURSO 


Nuevos los puede conseguir en todas las tiendas especializadas. 


No obstante, si tiene dificultades para conseguirlo o desea información, dirí- 
jase a BELLTONS Informática, le proporcionaremos un ZX81 nuevo o usado. 


Al atravesar ““La pequeña gran puerta”” habrá entrado en un mundo apasio- 
nante y estará en condiciones de escribir programas bastante sofisticados, pu- 
diendo estudiar cualquier otra versión de BASIC que un nuevo y distinto orde- 
nador pudiera exigirle. 


> 
XV 


En todo caso la pretensión de este libro es “hacerle ver'* como “razona” un 
computador, y va dirigido a todas aquellas personas que deseen aprender a ma- 
nejar un microordenador, sin tener conocimientos previos de programación ni 
de la lengua inglesa. 


Todos los textos simulan un simpático diálogo entre la máquina y usted, al 
final del cual su cerebro se habrá estructurado de forma que piense en términos 
que entienda la máquina. 


Cada capítulo tiene ejercicios resueltos y adecuados al nivel de conocimien- 
tos adquiridos, en correspondencia con la parte 2? “Ejercicios de programación”. 


En “Ejercicios de programación” se incluye un modelo de impreso para 
desarrollar sus propios programas. 


Cada lector puede ir a la velocidad que estime conveniente. Nosotros sólo 
le recomendamos que no dude en volver atrás cada vez que lo crea oportuno. 


Haga los ejercicios. Todos se adaptan a la configuración mínima del ZX81, 
es decir, 1 K RAM. 


... y siempre que se le ocurra hacer tal o cual cosa, ¡hágala! y vea qué sucede. 
Esto será muy importante en su proceso de aprendizaje del lenguaje de progra- 
mación de alto nivel conocido por BASIC. 


ESQUEMA DE CONEXIONES 


Para poder seguir este curso, el lector deberá disponer de: 


* Un ZX81 en su configuración mínima 
* Un televisor con UHF 


* Un casete, aunque no es imprescindible 


En el caso de usar el casete siga las instrucciones del epígrafe: “EL CASETE... 
¿PARA QUE? 


Conecte el equipo según el esquema que figura más abajo. 


Para que el TV y el ZX81 estén debidamente sintonizados debe aparecer una 
K en el ángulo inferior izquierdo de la pantalla, para ello deberá conectar el 
cable de antena del equipo de serie con la toma de antena de UHF del TV y su 
ZX81. Hecho esto, encienda el televisor y, en los canales más altos de UHF, 
mueva el sintonizador lentamente. Sea paciente la primera vez, piense que 
ahora está acoplando sus máquinas. Si es posible deje un canal ya presinto- 
nizado. 
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a TECLADO. SU MANEJO 


El teclado del ZX81 parece, a simple vista, muy complicado. No lo es tanto. 
A través de La Pequeña Gran Puerta todos “sus misterios” quedarán desvelados 
sin dificultad. 


En este apartado haremos una presentación general sobre cómo usarlo y, de 
esta forma, comenzar a “perderle el respeto”. 


Nada más conectar su equipo aparece una K en la esquina inferior izquierda; 
ahora, haga lo que haga, si aprieta una tecla donde figure una letra le aparecerá 
la palabra que figura encima de la propia tecla. P. ej. Apriete B. Aparecerá 
SGROLE 


Para borrar SCROLL apriete SHIFT y RUBOUT (6). 


Si aprieta SHIFT y GRAPHICS (9) la letra K del ángulo inferior izquierdo se 
transformará en una G. O dicho de otra forma, el cursor se ha cambiado de una 
K a una G. Si vuelve a apretar la B, la pantalla le mostrará una B en negativo. 
Borre la B (SHIFT y RUBOUT). Para cambiar la G en la K original, apriete de 
nuevo SHIFT y GRAPHICS. 


Teclee SHIFT y FUNCTION (tecla NEWLINE). El cursor se transforma en F. 


Si aprieta nuevamente B obtendrá la palabra que está justamente debajo de la 
tecla B propiamente dicha. 


Si aprieta SHIFT y RUBOUT aparecerá automáticamente la K de nuevo. 


El último símbolo que contiene la tecla B es un * en rojo y para obtenerlo 
bastará con que apriete SHIFT y B simultáneamente. 


Estas líneas le dan una idea general del funcionamiento del teclado pero, ni 
debe pretender que con esto conoce el teclado ni desesperar ante su aparente 
complejidad. 


Le volvemos a recomendar paciencia. 


Todo se andará. 


ALGUNOS CONSEJOS PREVIOS 


Si tiene alguna ampliación de memoria para su ZX81 no la conecte o desco- 
necte con la máquina enchufada a la red. 


Nuestro mejor consejo es que sea paciente y siga el curso en forma progresiva 
atendiendo a las instrucciones que se dan. 


No obstante es probable que su curiosidad le lleve a manejar el computador 
antes de avanzar en el estudio de este libro. También es posible que cometa 
errores (apretando teclas incorrectas, p. ej.) en los ejercicios propuestos en los 
diferentes apartados. 


Por estas u otras razones se encontrará, de vez en cuando, en callejones sin 
salida. 


Si el lío en que está es muy grande, desenchufe el jack de entrada de corrien- 
te. Esta medida déjela como último recurso pues “perderá” todo lo que haya 
hecho en el computador. 


Si el problema es mediano, puede apretar simultáneamente las teclas SHIFT 
y 5 u 8 para desplazar el cursor de la pantalla a izquierda o derecha respectiva- 
mente y más tarde, “borrar”* apretando SHIFT y 4. 


Los errores cometidos aparecen en la esquina inferior izquierda de la pantalla 
de T.V, en forma de mensajes en clave. Para interpretar estas claves diríjase al 
CODIGO DE ERRORES. 


PRIMERA PARTE 


Manejando el ZX8I 


UNA PRESENTACION FORMAL 


Yo soy tu microcomputador. Me llamo ZX81. 


Estoy en condiciones de hacer todo lo que me ordenes, pero primero debes 
aprender a manejarme. Para ello has de saber: 


192 Que mi cerebro es muy tonto comparado con el tuyo, pero suelo ser 
más rápido. 


22 Que las palabras que yo entiendo son inglesas. 


Lo segundo no debe ser motivo de preocupación para tí porque yo te expli- 
caré en tu idioma todo lo necesario. 


Con respecto a lo primero te diré que todo lo que yo puedo hacer es: 


A) Guardar información en memoria. 


B) Decidir entre dos posibilidades. 


C) Repetir una operación hasta que (o mientras que) suceda algo. 


D) Hacer sumas, restas y cosas por el estilo. 


Mis hermanos mayores, los grandes computadores, hacen prácticamente lo 
mismo, pero más rápido y con más capacidad de memoria. 


La capacidad de memoria se mide en K. 


Yo de fábrica salgo con una K, pero me puedes ampliar cuando quieras a 
16 K ó 64 K. 


También me dejo conectar una impresora y muchas más cosas. No soy tan 
pequeñito como parezco. 


ES ALGUNOS DE MIS SIMBOLOS 


Así los interpreto yo: 


Símbolo 


CUALQUIER NUMERO 


CUALQUIER NUMERO 
ENTRE COMILLAS O 
CUALQUIER COMBI- 
NACION DE CARAC- 
TERES ENTRE COMI- 
LLAS 


CUALQUIER LETRA 
O GRUPO DE LETRAS 
Y NUMEROS QUE EM- 
PIECEN POR UNA LE- 
TRA 


UNA SOLA LETRA 
SEGUIDA DE $ 


Significado 
Me ordena dejar “algo” IGUAL a “algo” 
Me ordena SUMAR. 
Me ordena RESTAR. 
Me ordena MULTIPLICAR. 
Me ordena DIVIDIR. 


Me ordena ELEVAR un número a una potencia. 
Por ejemplo: 


2 Pala: 
Representa ese número. 


Representa UNA CADENA DE CARACTERES. 
Por ejemplo: **7527”" yo no lo puedo multiplicar 
por 2 porque para mi “7527” es un texto y lo 
trataría igual que si me dijeras DON QUIJOTE”. 


Representa UNA VARIABLE NUMERICA a la 
cual daré el valor numérico que me indiques. Por 
ejemplo: 


ZX81 = 14990 


Representa UNA VARIABLE DE CARACTERES 
a la cual daré el significado que me indiques, siem- 
pre que lo escribas entre comillas. Por ejemplo: 


A$ = “APRENDIENDO BASIC ZX81” 


No tienes por que aprenderte esto de memoria. Esta hoja_es simplemente un 
apunte que usarás siempre que dudes. y 


Todo lo sabrás usar poco a poco. 


CODIGO DE ERRORES ES 


Como sabes yo te doy los mensajes de error mediante dos números que apare- 
cen en el margen inferior izquierdo de la pantalla: con el primero te indico el 
tipo de error con el segundo /a /ínea de programación donde se ha producido. 


Consulta este epígrafe cuando lo necesites. 


Algunos de estos mensajes servirán exclusivamente para decirte en qué situa- 
ción estoy, otros provendrán de errores de programación propiamente y, en al- 
gunos casos, te resultará más difícil averiguar la causa que lo produce. 


TIPO DE 
ERROR COMENTARIOS EJEMPLO 


o) Todo ha salido bien 10LETA=1 
Si pones un GOTO que me manda a una línea de 20PRINTA 
programación más alta que la última 30 GOTO 40 


He leído un NEXT pero no he encontrado su 10LETA=1 
FOR correspondiente. Sin embargo, he localiza-  20PRINTA 
do una variable con la misma denominación. 30 NEXT A 


No hay valor para una variable. 


Si es una variable simple ... 10LETA=1 
Falta el LET correspondiente a B. 20 PRINT B 


Si pertenece a un array ... 10PRINTA (1) 
Falta el DIM correspondiente a A. 


Si pertenece a un bucle FOR/NEXT ... 20LETA=1 
Falta el FOR correspondiente a NEXT X 20PRINTA 
30 NEXT X 


No existe la variable que me pide dentro de un 10 DIM A (2) 
array definido en un DIM, 20 PRINT A (3) 


Mi memoria está llena. No puedo obbede 
ce... er... te. Lea COMENTARIOS POSTERIORES 


Pantalla llena. 
CLS borra la pantalla. No las variables. 


He hecho un cálculo matemático que supera mis 10LETA= 
posibilidades = 10**10**10 
20 PRINTA 


es CODIGO DE ERRORES 


TIPO DE 
ERROR COMENTARIOS EJEMPLO 


He leído un RETURN pero no he encontrado el 
GOSUB correspondiente. 


Sólo puedes usar INPUT dentro de un programa, es 
decir, con su correspondiente línea de programa. INPUT A 


He leído una instrucción STOP y por eso me 10LETA=1 
detengo 20510P 
Si aprietas CONT seguiré ejecutando el programa 30PRINTA 


El programa quiere que haga cosas que yo no 10 LETA = -1 
puedo hacer, en términos matemáticos, con 20 PRINTLN A 
SOR, LN, ARCSIN y ARCOS. 


El programa quiere que haga cosas que yo no 10PRINT AT 
puedo hacer en términos físicos. ZONAS 


La cadena de caracteres que sigue a la sentencia 10LETA= VAL 
VAL no representa una función numérica válida ed de 0 


Alguien ha apretado la tecla BREAK 
También si aprietas STOP/NEWLINE cuando yo 
espero una entrada INPUT. 


No puedo “guardar*' en tu casete un programa SAVE” 
cuyo nombre sea la cadena de caracteres vacía” ” 


LECCION DE INGLES Es 


Te voy a explicar el significado que tienen para mi las palabras inglesas del 
lenguaje de programacion BASIC que vamos a utilizar inicialmente. 


La aplicación exacta de estas SENTENCIAS, que así se llaman las órdenes o 
comandos que me das, la tendrás muy pronto. 


De momento basta con que cojas la idea. 
Sentencia Significado 


LOAD Me ordena CARGAR en mi memoria el programa 
contenido en un casete. 


Me ordena GUARDAR el contenido del programa 
que hay en mi memoria a un casete. 


NEWLINE Es la palabra que necesito para obedecer cualquier 
orden. 


A un soldado le dirías: 
¡Filirmes. YA! 


A mí, por ejemplo: 
LOAD, NEWLINE 


Me ordena CORRER un programa, es decir, me 
indica que lo haga funcionar de manera que tu lo 
puedas utilizar. 


Vamos a usarlas. 


¿EL CASETE... PARA QUE? 


¿Jugamos una partida de ajedrez? ¿Sí?. Bueno pues haz el programa ade- 
cuado. 


¿No sabes? ¿Es muy complicado? 


En ese caso compra un casete con el programa que te interese y 'cárgalo 
(LOAD) en mi memoria. 


Todos los ordenadores que existen en el mercado tienen colecciones de pro- 
gramas preparados para cubrir diferentes necesidades. Los soportes suelen ser 
cintas o discos magnéticos. 


Este camino te permite disfrutar inmediatamente de tu ordenador sea cual 
sea el tamaño del mismo y tu nivel de aprendizaje. 


Yo sólo leo programas grabados en cintas casetes. 


Te explicaré el procedimiento que debes seguir: 


192 — Enchufa a la red tu magnetofón a casetes. 


22 En el equipo de serie que me acompaña hay un cable con dos jacks 
(uno negro y otro gris). Conecta el gris, por ejemplo, a la entrada 


EAR (auricular) del magnetofón y a mi entrada EAR. No te equivo- 
ques: gris con gris o negro con negro. 


3 Pon el volumen del magnetofón a tres cuartos de volumen total. 


Ya tienes el equipo preparado para cargar (LOAD) en mi memoria cualquier 
programa grabado en casete. 


El programa me dice qué debo hacer y cuando lo debo hacer, por esta razón, 
para ponerme a trabajar necesito programas que bien haces tú, bien los encargas 
a otras personas, o bien los compras pregrabados. 


Todos los casetes te indican, entre comillas, los “nombres”* de los programas 
que contienen. 


Supongamos que me cargas (LOAD) un juego titulado “INVASORES”. 


Este sería el proceso: 


1% Comprobar que el casete está rebobinado. 


22 — Aprieta la tecla LOAD 
Escribe “INVASORES”. No olvides las comillas. 


¿EL CASETE... PARA QUE? ES 


32 Pon en marcha el magnetofón para reproducir (Como si fueras a oir 
a Julio Iglesias). 


4% — Aprieta la tecla NEWLINE. 


Inmediatamente aparecerán unas rayas inclinadas en la pantalla de tu tele- 
visor y, posteriormente, unas bandas negras y blancas del mismo ancho apro- 
ximadamente. 


Al final de la carga (LOAD), y en el margen inferior izquierdo aparecerá 
6/6 para indicarte que la carga (LOAD) ha sido un éxito y tengo el programa 
en memoria. 


Para que puedas jugar a los invasores me tendrás que dar la orden de co- 
rrer (RUN) el programa con lo cual me prepararé para hacerlo funcionar en 
el momento que aprietes la tecla NEWLINE. 


Resumiendo: 


12 — Aprieta la tecla RUN. 
22  Aprieta la tecla NEWLINE. 


En todo caso lee las instrucciones del casete, pues puede que no hiciera falta 
este último proceso. 


Es posible que yo no haya podido cargar (LOAD) en mi memoria el progra-. 
ma y, después de las bandas blancas y negras vuelvan a aparecer en la tele las 
líneas inclinadas o una K en el margen inferior izquierdo. 


En este caso tendrás que repetir el proceso de carga (LOAD). 


Para evitar problemas de carga (LOAD) te haré algunas recomendaciones: 


1% Utiliza casetes de buena calidad. 


22 No conectes simultáneamente los cables a MIC y EAR. SOLO EAR 
CON EAR. 


32  Gradúa el volumen de tu magnetofón hasta que yo “oiga” el progra- 
ma con claridad. 


Haz la prueba de variar el volumen durante la carga de cualquier pro- 
grama y observa la pantalla. Sólo con un determinado volumen pue- 
do cargar (LOAD) el programa. 


Limpia la cabeza de grabación de tu magnetofón de vez en cuando. 
¿Eh? 


¿EL CASETE... PARA QUE? 


Vamos a invertir los términos. 


(Este epígrafe no te será útil hasta más adelante, por tanto puedes dejarlo 
de momento). 


Ahora eres tú quien ha desarrollado un programa para calcular, por ejemplo, 
tus impuestos y lo quieres guardar (SAVE) en un casete con el nombre de 
“IMPUESTOS”. O bien quieres copiar en otro casete un programa que ha he- 
cho un amigo tuyo. 


Primero conecta tu equipo en la forma explicada más atrás pero con la dife- 
rencia de conectar un jack (el negro por ejemplo) a la entrada de micrófono de 
tu magnetofón y el otro extremo (jack negro también) a mi toma MIC. 


Después sigue estos pasos: 


19 Cuida de no guardar un programa encima de otro, pues perderías el 
anterior. 


22 — Aprietas SAVE 
Escribe “IMPUESTOS”. No olvides las comillas. 


32 Pon en marcha tu magnetofón PARA GRABAR. 
4% — Aprieta NEWLINE. 


La pantalla se pondrá gris durante unos instantes y después unas líneas blan- 
cas y oscuras aparecerán. 


Al final, y en la esquina inferior izquierda, te daré el mensaje ¿/6. La graba- 
ción ha terminado. 


Para el magnetofón después de unos tres segundos de que el mensaje ¿4/4 
haya aparecido. 


Si las cosas no suceden así repite el proceso variando el volumen. 


Para comprobar que la grabación fue efectuada desconecta el jack de entrada 
de corriente o aprieta NEW, NEWLINE con lo cual “pierdo” toda la informa- 
ción que tengo en memoria. 


Ahora sigue el proceso de carga (LOAD) explicado en las páginas 22 y 23. 
Cuando tengas mi nuevo mensaje ¿/6, lista el programa (LIST, NEWLINE). 
Ya lo tienes disponible para cuando lo necesites. 

Por eso el casete es tan útil. 


Pronto lo vas a utilizar. 


Cuando te haga falta relee estas hojas y úsalas de guía hasta que estés seguro 
de los procesos. 


Programando en BASIC 
con el ZX8l 


SEGUNDA LECCION DE INGLES 


El lenguaje de programación BASIC fue desarrollado con la intención de per- 
mitir una fácil comunicación entre los ordenadores y los humanos... que hablan 
inglés. Por esta razón debes estudiar estas lecciones sin más ánimo que coger 
una idea del significado de las palabras que vas a usar en lo sucesivo. 


Sentencia Significado 


PRINT Me ordena IMPRIMIR en la pantalla de TV. 


LET Me ordena DEJAR algo (número o letras) igual a 
algo (números o letras). 


INPUT Me ordena ESPERAR UNA ENTRADA de datos. 


LIST Me ordena LISTAR en la pantalla el programa 
que tengo en mi memoria. 


SOR Me ordena hallar la RAIZ CUADRADA de un nú- 
mero. 


Me ordena RECORDAR algo pero sin que influya 
en la programación. 


ES DE NO SABER NADA ... ¡ASABER ALGO! 


Si te parece bien podríamos hacer juntos tu primer programa. 
¿Qué es pronto? ¿Qué todavía no sabes? Tonterías. 


Fijate en este ejemplo: 


Vamos a hacer un programa para sumar dos números cualquiera, los cuales tu 
me dirás a través de mi teclado. 


Ahora te diré como debes “hablarme”. 


“Espera (INPUT) a que te dé el primer número (A), después espera INPUT a 
que te dé el otro número (B). A continuación deja (LET) en tu memoria el 
resultado (C) de sumar los dos números anteriores (A + B). Finalmente, impri- 
me (PRINT) en la pantalla al valor (C) de la suma”. 


Esto escrito en mi teclado, y de acuerdo con lo estudiado en las páginas, 18 y 
27 sería una cosa así: 


(No teclees nada en mi teclado hasta que yo te avise). 
INPUT A 
INPUT B 
LETC=A+B 
PRINTC 


Si tratas de introducir estas líneas en mi ordenado cerebro no consegui- 
rás nada. 


Necesito que me digas claramente el orden en que tengo que actuar. 
Esto sería un programa: 


(No teclees nada todavía. No seas impaciente).; 


Programa Comentarios 

1 INPUT A Primera LINEA DE PROGRAMA. 
2 INPUT B Segunda LINEA DE PROGRAMA. 
3LETC=A+B Tercera LINEA DE PROGRAMA. 


4 PRINTC Cuarta LINEA DE PROGRAMA. 


DE NO SABER NADA... ¡A SABER ALGO! | ES 


Estas líneas de programa deben ir de menor a mayor justo en el orden en que 
tú quieras que yo opere. Cualquier numeración que siga la norma anterior es 
buena, pero yo te recomiendo que vayas de 10 en 10. Así: 


Programa Comentarios 


10 INPUT A Numerando las LINEAS DE PROGRAMA de 10 
en 10, tienes la posibilidad de introducir nuevas 
20 INPUT B LINEAS con nuevas INSTRUCCIONES para mí. 


30LETC=A+B 
40PRINTC 


Tal vez te preguntes qué significan la A, la B o la C. Relee en la página 18 lo 
referente a variables numéricas. 


Dado que A y B pueden ser cualquier número que tú me des por el teclado y, 
puesto que su suma también puede ser cualquier número, yo necesito asimilar- 
las a unas VARIABLES NUMERICAS y esas VARIABLES NUMERICAS son 
las que tú me indiques. En este caso A, B y C. 


Ahora enchúfame a la corriente y al televisor. Si dudas échale un vistazo al 
esquema de la página 11. 


Introduce el programa en mi memoria a través de mi teclado. Sigue el proce- 
so que te indico y analiza los comentarios. 


EMPIEZA A TECLEAR: 


Proceso Comentarios 


Antes de apretar ninguna tecla aparece una K en 
la esquina inferior izquierda de la pantalla. El cur- 
sor está representado por esa K. 


1% escribe 10 Este número lo interpreto como el número de la 
LINEA DE PROGRAMACION por ser previo a 
ninguna SENTENCIA (ver TECLADO en pág. 12). 


2% aprieta INPUT INPUT está encima de la tecla | y es una SEN- 
TENCIA U ORDEN. 
Observa como la K se ha transformado en L. Esto 
implica que ya no espero ninguna otra sentencia. 


DE NO SABER NADA... ¡ASABER ALGO! 


Proceso Comentarios 


32 aprieta A Por estar el cursor representado por una L, yo in- 


terpretaré que tu quieres justamente la letra A y 
no ninguno de los otros símbolos que la acom- 
pañan en su tecla. 


4% aprieta NEWLINE Con esta orden yo sé que la línea de programa 10 


está completa y que debo guardarla en mi me- 
moria. 


En este momento aparece la K nuevamente. 
5% escribe 20 
6% aprieta INPUT 


7% aprieta B 


8 aprieta NEWLINE La línea de programa 20 pasa a mi memoria. 
El cursor se transforma en K nuevamente y apare- 
ce en el margen inferior izquierdo. 


90 escribe 30 
10% aprieta LET 


11 aprieta C 


12% aprieta = Para obtener el símbolo = debes apretar simultá- 
neamente SHIFT y L. De hecho todas las instruc- 
ciones en rojo exigen apretar a la vez SHIFT. 

13% aprieta A 


14% aprieta + El símbolo + está en la tecla K y en rojo, por lo 
tanto deberás apretar simultáneamente SHIFT 
y K. 


aprieta B 


aprieta NEWLINE La línea de programa 30 pasa a mi memoria. 
escribe 40 
aprieta PRINT 


aprieta C 


aprieta NEWLINE La línea de programa 40 pasa a mi memoria. 


DE NO SABER NADA... ¡ASABER ALGO! dal 


Ya sé lo que quieres que haga y cómo quieres que lo haga. 


Vamos a usarlo. Para ello sólo tienes que: 


192 — Apretar RUN CORRELO 
2 —Apretar NEWLINE .... 0... ¡YAI 


Inmediatamente verás aparecer en la esquina inferior izquierda de tu pantalla 
una L, lo cual te indica que espero el primer número. 


Escríbelo y aprieta NEWLINE. (El 15 por ejemplo.) 


Otra vez aparece la L a la espera del segundo número. 
Escríbelo y aprieta NEWLINE. (El 5 por ejemplo.) 


En la esquina superior izquierda aparece mi respuesta y en la inferior ¡z- 
quierda 4/40. 


Enhorabuena, eres un programador .. . bueno, ya te falta menos. 
Prueba con otros números. 


Supongamos ahora que ya no quieres sumar. Ahora quieres multiplicar cual- 
quier número por cualquier otro. 


Tienes dos opciones: o haces un programa nuevo o modificas éste. 


Vamos a modificar éste. 


Pero antes haz los EJERCICIOS DE CALCULO. 


E MODIFICANDO UN PROGRAMA 


.. nOs quedamos en que la esquina superior izquierda tenías mi contestación. 


En la esquina inferior izquierda aparece 4/40. Es un mensaje mío para ti: 


“NO HAY ERROR/ESTOY PARADO EN LA LINEA 40 A TUS ORDE- 
NES”. 


Bien, como ahora se trata de modificar el programa que tengo en memoria, 
lo primero que has de decirme es “HAZ UN LISTADO””. Para ello: 


IST IO LISTA en la pantalla el programa a partir de la 
línea 10. 


2 ¡NEWEINE 2: ¡YA! 


Ya lo tienes. 
Observa esa pequeña flechita en la línea 10. Ese es mi puntero. 


¿Qué queríamos hacer? ¡Ah! Multiplicar un número por otro. ¿Cuál sería 
el programa si lo hicieramos nuevo? 


Este: 
10 INPUT A 


20 INPUT B 
30LETC=A*B 
40 PRINTC 


Que viene a decirme: “Espera (INPUT) a que dé el primer número (A), 
después espera (INPUT) a que te dé el otro número (B). A continuación deja 
(LET) en tu memoria el resultado (C) de multiplicar los dos números ante- 
riores (A * B). Finalmente imprime (PRINT) en la pantalla el valor (C) de la 
multiplicación”. 


Obviamente es cas/ igual a nuestro programa de sumas, sólo varía la línea 


Así, a ti te interesa que yo opere sobre la línea 30... y ahora estoy en la 10, 
según indica el puntero. Desplaza el puntero hacia abajo apretando simultá- 
neamente SHIFT y 6. 


Cuando hayas situado el puntero en la línea de programa 30, dame la orden 
de editar (EDIT) la línea sobre la cual está el puntero de esta forma: Aprieta 
simultáneamente SHIFT y 1. 


Ya tienes la línea de programa 30 en la parte inferior de la partalle que es 
el único lugar donde puedes introducir modificaciones. 


MODIFICANDO UN PROGRAMA ES 


Ahora puedes manipular la línea 30. 

En este caso hay que variar todo lo que está a la derecha del igual. 
Verás en la línea editada una K entre el 30 y LET. 

Observa que sucede al apretar SHIFT/8. 


La K se transforma en L y avanza hacia la derecha. Repite la operación 
hasta situar la L a la derecha de B. 


ATENCION: La K te indica que sólo acepto SENTENCIAS, tales como... 
LET, RUN, etc. La L te advierte que lo próximo que introduzcas lo aceptaré 
como un carácter sencillo: Letra o número, ¡como si fuera una máquina de 
escribir! 


Dicho esto a borrar (RUBOUT) lo que sobra: aprieta SHIFT, q. 
Cada vez que hagas esto borras un caracter, un símbolo o una sentencia. 
Cuando hayas borrado lo que sobra... 
. . escribe lo correcto: 
A*B 


(* se consigue mediante SHIFT, B). 


Recuerda: para que yo acepte esta modificación tendrás que apretar NEW- 
LINE. 


¿Corremos el programa? (¿lo hacemos funcionar?). 


¿Str Pues... 


Proceso Comentarios 
192 RUN CORRE EL PROGRAMA. 
2% NEWLINE ¡YA! 


¿Una L en la esquina inferior izquierda? pues ya sabes . .. necesito el primer 
número ... ¿otra L?, pues ¡ale!, otro número (no te olvides de NEWLINE). 


Ya tienes mi respuesta. 
¿Sabes ya cómo corregir y modificar? ¿Sí? 


En ese caso haz los EJERCICIOS DE MODIFICACION. 


Ios HAZ TUS PROGRAMAS CLAROS 


Afortunadamente hemos numerado las líneas de programa de 10 en 10. Gra- 
cias a esto vamos a intercalar nuevas líneas de programa sin necesidad de alterar 
lo ya escrito. 


Si aún está el programa anterior en mi memoria dame la orden de listarlo 
(LIST, NEWLINE) en pantalla. 


En otro caso introduce el programa de nuevo copiándolo de la página 32. 


Dame estas dos líneas de programa tecleando: 


Proceso Comentarios 
5 PRINT “UN NUMERO”  (NEWLINE por supuesto) 


15PRINT “OTRO NU- 
MERO” (NEWLINE por supuesto). 


(Automáticamente yo colocaré la línea 5 antes de la 10, y la 15 entre la 


10 y la 20). 


En estas condiciones el programa queda: 


Programa Comentarios 
5 PRINT “UN NUMERO”  Imprimo “UN NUMERO”. 
10 INPUT A Espero la entrada del número A. 


15PRINT “OTRO NU- 
MERO” Imprimo “OTRO NUMERO”. 


20 INPUT B Espero la entrada del número B. 
3J0OLETC=A*B Dejo C igual a la multiplicación de A por B. 
40PRINTC Imprimo C. 


Nota: Los espacios en blanco para los textos entre comillas los consigues 
apretando SPACE, 


HAZ TUS PROGRAMAS CLAROS ES 


Corre el programa (RUN, NEWLINE) y hazlo funcionar con un par de nú- 
meros, observa que las impresiones las hago en el mismo orden que están en el 
programa. De arriba hacia abajo. 


Ahora el programa es más claro. 
1 
Para “clarificarlo”” más añade estas líneas: 


(Primero lístalo: LIST, NEWLINE) 


Programa Comentarios 


12PRINTA (No olvides NEWLINE) 


22 PRINT B (No olvides NEWLINE) 


28 PRINT 
“RESULTADO” (No olvides NEWLINE) 


Corre el programa (RUN, NEWLINE) y hazlo funcionar con otro par de nú- 
meros. Mis respuestas van a renglón seguido. 


¿Las ponemos a continuación? 


Bastará con que añadas a las líneas 5, 15 y 28 un punto y coma (;) al final de 
las mismas. 


¿Te acuerdas como se hacía? Te ayudaré con la modificación de la línea 15, 
p. ej., y tú sigues después. 


1% LIST 15 (así el puntero se sitúa sobre la línea 15, ver la NOTA al pie) 


2 ED (SHIFTA) 


Nota: Cuando aprietas LIST, seguido de un número (y después NEWLINE 
por supuesto) se lista el programa desde la línea de programa cuyo número es 
el que sigue a la instrucción LIST, p. ej.: 


LIST 15, NEWLINE te dará un listado por pantalla a partir de la línea 15. 


o HAZ TUS PROGRAMAS CLAROS 


32 Correr la K (L) hasta el final. 
4%  Teclear; (SHIFT/X) 
52  NEWLINE 


Cuando hayas modificado estas líneas, vuelve a correr el programa (RUN y 
NEWLINE) y hazlo funcionar con otros dos números. 


Ahora te doy mis respuestas justo a continuación de los textos porque así me 
lo indican los puntos y comas que hay al final de los mismos, en las correspon- 
dientes líneas de programa. 


Si sustituyeras los puntos y comas del final de estas líneas por comas (,) te 
daría mis respuestas a partir de la columna 16 hacia la derecha. 


Te esperan los EJERCICIOS DE MODIFICACION en la página 88. 


JUGANDO CON LAS PALABRAS 


A lo peor te doy la impresión de que sólo puedo manejar números. 


¡Pues no es así! 


También trabajo con letras. 


Verás. Yo sé que tu quieres darme datos numéricos, como ya vimos en la 
página 18, si utilizas variables numéricas, es decir, me das cualquier com- 
binación de letras y números con tal de que el primero sea una letra. P. ej.: 


LET ZX81 = 14990 


INPUT ZX81 


estas son variables numéricas porque guardan números o esperan entradas 
de números. 


Pero . . . ¿y si quieres guardar textos o esperar entradas de textos? Senci- 
llo. Cualquier letra (pero una sola) seguida de $ (SHIFT/U) representan varia- 
bles de caracteres y me indica que son textos lo que voy a manejar. P. ej.: 


LET M$ = “ZX81” (ver nota al pie) 


INPUT MS — (espera la entrada de un texto) 
“9 cualquier combinación de 
caracteres” 


Vamos a manejarlas. 


Las variables numéricas las puedo sumar, restar, multiplicar, dividir, etc. Por 
ejemplo: 


LETA=B+CÓLETM=T*C+FóLET JUAN = SOR H 


Las variables de caracteres SOLO LAS PUEDES SUMAR. Por ejemplo: 
LET ES = K$ + VS. 


NOTA: Las variables de caracteres las puedes hacer igual a cualquier cadena de 
caracteres (entre comillas). Por ejemplo: 


LET A$= “5 MILLONES” 


JUGANDO CON LAS PALABRAS 


Teclea este programa: 


Programa Comentarios 
No te olvides NEWLINE. 


10PRINT “DIME Imprimo “DIME TU NOMBRE” 
TU NOMBRE” 


20 INPUT N$ “Espero la entrada de un texto”. 


30 LET A$ = Dejo A$ igual a “BUENOS DIAS”. 
“BUENOS DIAS” 


40 LET B$ = Dejo B$ igual a A$ + N$. 
AS + N$ 


50 PRINT B$ Imprimo B$. 


Correlo (RUN, NEWLINE). Teclea JUAN y NEWLINE. 


Para mí sumar cadenas de caracteres no es más que poner una cadena a conti- 
nuación de otra. Por esta razón la contestación que yo te daré será BUENOS 
DIASJUAN. Introduce ahora un espacio (SPACE) entre la última S y las co- 
millas de la línea 30. Corre (RUN, NEWLINE) el programa de nuevo y la im- 
presión será: BUENOS DIAS JUAN. 


Haz los EJERCICIOS CON TEXTOS Y VARIABLES DE CARACTERES. 


DOMINANDO LA PANTALLA 


Yo considero que la pantalla de tu televisor tiene 24 líneas y 32 columnas, 
por tanto yo puedo poner la información sobre cualquiera de las 24 líneas y 


32 columnas. En ambos casos comienzo a contar desde O y llego a 23 ó 31, se- 
gún sean líneas o columnas. 


Las 24 líneas para mí van numeradas de arriba a abajo y las 32 columnas van 
de izquierda a derecha. 


5 6 
ll 
EXNHN 
0 5 E 
EEE E 
apepalio 
1 | 
alos 
DEE 
A A 
ARAS 
SERE 
E 
SAME 
EIN 
METE 0 E 
ENEE 
BSOS (6 E 
0 
UE 
ENE 
aa 
EE 


Para imprimir cualquier caracter en el cuadrado de la línea 5, columna 7, tie- 
nes varias opciones: 


IS PRINTATOS IAS 


ES DOMINANDO LA PANTALLA 


2% Después de cuatro impresiones en líneas de pantalla consecutivas a lo 
largo de un programa (y no borradas de la pantalla) y a continuación 


PRINT TAB 7; “A” 

Después de cuatro instrucciones PRINT en blanco: 
10 PRINT 

20 PRINT 

30 PRINT 

40 PRINT 

50 PRINT TAB 7; “A” 

Con una cadena de caracteres en blanco: 


PRINT ” 6 veces SPACE A””, en las mismas condiciones de los dos 
ejemplos anteriores. 


Para borrar la pantalla sin que afecte a las instrucciones del programa ni al 
contenido de las variables: CLS. 


Ten a mano este esquema de la pantalla durante el estudio de este epígrafe 
y sus ejercicios. 


¡Ah!, las dos líneas finales, la 22 y 23, me las reservo yo para comunicarme 
contigo y no están disponibles para tí. 


La forma en que has de ordenarme donde debo imprimir es muy sencilla. De- 
bes decirme: 


PRINT AT 


o lo que es igual: imprime en ... 


Nota: Para conseguir las instrucciones que están situadas debajo de las teclas 
(como es el caso de AT) se debe proceder como sigue: 


192 SHIFT y NEWLINE simultáneamente. 


22 — Latecla en cuestión. 


De esta forma el cursor se transforma en F. 


DOMINANDO LA PANTALLA (E 


Haz esta pequeña prueba: 


Programa Comentarios 


10PRINT AT 
E ad (No te olvides de NEWLINE) 


Corre el programa. Tu ya sabes que para correr un programa debes apretar 
RUN, NEWLINE y si no lo recuerdas ... vete a la página 21. 


Haz esta otra prueba: 


Programa Comentarios 


10PRINT AT 
e Imprimo * en la línea $, columna 31. 


20 PRINT AT 
EN SA besó Imprimo * en la línea 21, columna 31. 


30 PRINT AT 
Da oa Imprimo *** a partir de la línea 10, columna 29. 


Corre este programa y anal ízalo. 


Cambia la línea 30 por esta otra: 


JOPRINFATTO 3030 


Corre el programa de nuevo y observarás que el último * sale en la siguiente 
línea, esto se debe a que yo considero que al no haber columna disponible a 
la derecha continuo en la primera columna de la línea siguiente: 


Recuerda: 
; me obliga a escribir a continuación 
, me obliga a escribir a partir de la columna 16 


Muchas veces es más cómodo usar PRINT TAB. 


ES DOMINANDO LA PANTALLA 


Teclea este programa: 


Programa Comentarios 


IOBRINT AS Borra la pantalla si contiene algo. 
Imprimo en la primera línea disponible en la pan- 
talla y desde la columna ¿. En este caso línea 4, 
columna 4. 


20 LETAS="++ Dejo las variables de caracteres A$ y B$ igual a 


30 LETB$="--" ++ y — —, respectivamente. 


40 PRINT “AS” Imprimo en la primera línea disponible en la pan- 
talla y desde la columna $. En este caso línea 1, 
columna $, puesto que la línea y la ocupará **, 


50PRINT TAB 5; “TAB”  Imprimo en la primera línea disponible en la pan- 
talla y desde la columna 5. En este caso línea 2, 
columna 5, puesto que la línea $ la ocupará ** y 
la uno ++. 

60 PRINT AT 10, 

12;A$ + BS Imprimo en la fila 10 y a partir de la columna 12. 


Corre este programa (RUN, NEWLINE) y compara lo que aparece en la pan- 
talla con los comentarios de cada línea. 


Para borrar este programa, y en general el contenido de mi memoria tienes 
dos opciones: 


PRIMERA  DESENCHUFAR EL JACK DE ALIMENTACION 
SEGUNDA APRETAR NEW, NEWLINE 


Con las instrucciones de las páginas anteriores puedes colocar números y tex- 
tos en el lugar que desees de la pantalla. Arriba, abajo, a la derecha y a la iz- 
quierda, pero ¿tú sabes que .. .? 


Yo puedo controlar la pantalla de forma que borre o imprima cosas a tu 
gusto. 


Antes de seguir, unas SENTENCIAS muy interesantes y espectaculares: 


GS Me ordena limpiar la pantalla y sólo la pantalla. El 
contenido de mi memoria no se altera. 


PAUSE Me ordena mantener en pantalla todo lo que esté 
impreso en la misma durante el tiempo que tú me 
digas, después seguiré ejecutando el programa. 


DOMINANDO LA PANTALLA EN 


Ejemplo: 
PAUSE 50 — equivale a una pausa de 1 segundo. 
PAUSE 500 — equivale a una pausa de 10 segundos. 


POKE 16437, 255 Después de una sentencia PAUSE debes utilizar 
esta cosa extraña —si trabajas en modo FAST—., 
Es como un tranquilizante para mí. Te advierto: 
¡Si no sigues este consejo puedes perder tu pro- 
grama! 


Nota: Una sentencia PRINT sin nada a continuación, lo interpreto como una 
línea en blanco. 


Prueba esto: 
lOPRINT “ESTOY :AQUI" 


20 PRINT 
30 PRINT 


40 PRINT “AHORA ESTOY TRES LINEAS 
MAS ABAJO” 


Córrelo y saca tus conclusiones. 


A continuación tienes un listado de un programa que está al límite de mi 
memoria (1 K), por esta razón haré cosas que no son usuales. 


No te preocupes y actúa de la misma forma en que lo has hecho hasta 
ahora, pero fíjate en ellas y así sabrás qué sucede en estas circunstancias. 


ECHALE UN VISTAZO A “ALGUNOS CONSEJOS POSTERIORES”. 


En la página 35 te decía que la sentencia LIST seguida de un número te 
da un listado del programa en memoria a partir del citado número. 


Cuando un programa tiene más líneas de programa de las que yo puedo 
mostrar en pantalla, o el contenido de las líneas es grande, 9 estoy al límite 
de mi capacidad operativa, como es el caso que te he explicado más arriba, 
entonces no podré darte listados completos, sólo parciales. 


Para saber cómo actuar en estos casos, y cuando hayas introducido el progra- 
ma que sigue, puedes probar un LIST1. 


En el margen inferior izquierdo te doy un mensaje 4/4 con lo que te indico 
que no tengo más memoria. El listado que te ofrezco llega hasta la línea 90. 
Aprieta ahora LIST 90. 


DOMINANDO LA PANTALLA 


Te doy un listado entre 90 y 160, con el mismo mensaje 4/4. 


Un LIST 160 te permitirá obtener la última línea de programación completa. 


Espero que no te olvidarás apretar NEWLINE tras cada orden completa. Con- 
siderando que ya lo sabes no volveré a repetírtelo. 


Estudia y escribe este programa: 


Programa Comentarios 


¡OPRINTATO 0: ** dc Deja 28 espacios (SPACE) 
en blanco 


20PRINT AT 21, p;** ás 


SOPRINDAT LAA Teclea 8 guiones 


40 PRINT AT 2, 11; “ATENCION” 


50 PRINTAT4,11;"======== Teclea 8 guiones 


60 PRINT 


70PRINT 


80 PRINT 
90 PRINT TAB 3; “TU ZX81 SE COMUNICA CONTIGO” 


100 PRINT AT 17, O; “ESTAS PREPARADO?” 


110 PRINT AT 20, 8; “BORRARE LA TV. ESPERAME” 


120 PAUSE 500 


130 POKE 16437, 255 


140 CLS 
150 PRINT TAB 8, “YA ESTOY AQUI” 


160 PRINT.AT 15, O; “ACABA LA PRIMERA ETAPA. REPASALA BIEN, 
HAZ PRUEBAS Y MODIFICACIONES SOBRE LO ESTUDIADO”. 


EJERCICIOS DE IMPRESION EN PANTALLA. 


¡VETE A...! ES 


¡Sí!. Vete a (GOTO) a París para subir a la Torre Eiffel. 
Vete a(GOTO) a la página 21 si quieres repasar una LECCION DE INGLES. 


Pero si quieres darme una orden de este estilo en un programa, dime: 


VETE A LA LINEA DE PROGRAMA NUMERO 23 y para ello debes 
teclear: 


GOTO 23 


Introduce este programa: 


Programa Comentarios 


10 REM “UN BUCLE” La instrucción REM me ordena que REMEMORE 
el texto que haya entre comillas. No afecta al pro- 
grama para nada y lo puedes colocar donde quie- 
ras. Saldrá en los listados con el único fin de re- 
cordarte aquello que esté entre las comillas. 


20 PRINT 

“PRIMER NUMERO?” Mientras no aparezca la sentencia GOTO mi pro- 
ceso normal de trabajo será ir de una linea de pro- 
gramación a la siguiente. 


30 INPUT A 
40 PRINT TAB 25; A 


50 PRINT 
“SEGUNDO NUMERO?” 


60 INPUT B 
70PRINT TAB 25; B 
80LETC=A-B 


90 PRINT 
“LA RESTA ES:”: C 


100 GOTO 20 GOTO me obliga a ir a la línea de programación 
cuyo número figura inmediatamente a continua- 
ción de la misma. En este caso a la 20. 


ES ¡VETE A...! 


Si corres RUN, NEWLINE este programa verás que automáticamente después 
de darte el resultado de la resta, te vuelve a preguntar por el primer número. 


Si quisieras listar tu programa (LIST/NEWLINE) te daría un error 2/30 que 
quiere decir que en la línea 30 no puedes meter una variable de letras, ya que 
espero una variable numérica (INPUT A). Es decir, he interpretado LIST como 
una cadena de caracteres y no como una SENTENCIA. ¿Sabes por qué? Por- 
que estoy en un bucle. 


Ahora, al darte la señal de error 2/30, he salido del bucle y ya puedes listar 
(LIST, NEWLINE). Vuelve a correr el programa. 


Si pruebas a darme datos y yo a darte respuestas, uno detrás de otro te en- 
contrarás que llega un momento en que te daré un error 5/50, con lo cual te in- 
dico que “por estar la pantalla llena me he visto obligado a pararme en la línea 
de programa 50”. 


Si quisieras seguir tendrás que correr (RUN, NEWLINE) el programa otra 
vez. 


Ahora GOTO “EJERCICIOS CON GOTO”. 


- RECORDANDO DE TODO UN POCO 


La variable numérica A es mayor que la B. 

La A es menor que la B. 

La A es mayor o igual que la B. 

La A es menor o igual que la B. 

La variable de caracteres A$ es mayor que la B$ 


La variable de caracteres A$ es menor que B$ 


La variable de caracteres A$ es menor o igual que 
la B$. 


La A$ es mayor o igual que B$ 
La variable numérica A no es igual a B. 


DEJA la variable numérica A igual a un número, 
a otra variable numérica o a una Operación arit- 
mética o trigonométrica. 


Ejemplo: 
LET A = SORB 


DEJA la variable de caracteres igual a un texto. 
Ejemplo: 


LET A$= “DOLAR” 


PRINTA IMPRIME en la pantalla el valor de la variable nu- 
mérica A. 


PRINT AS IMPRIME en la pantalla el valor de la variable de 
caracteres A$ 


INPUT A ESPERA una ENTRADA de la variable numérica 
A 


ESPERA una ENTRADA de la variable de ca- 
racteres A$ 


CORRE el programa, es decir, haz funcionar el 
programa que hay en memoria. 


LISTA el programa en la pantalla a partir de la 
línea de programa X. 


ES RECORDANDO DE TODO UN POCO 


CARGA el programa denominado “CARGA” (1) 
desde un casete a la memoria. 


GUARDA el programa denominado “GUARDA” 
(1) desde la memoria a un casete. 


VETE a la línea del programa número X. 


. RECUERDA “RECORDANDO” Esta sentencia 
no afecta al programa y sólo sirve para introdu- 
cir aclaraciones. 


LIMPIA LA PANTALLA. Borra el contenido de 
la pantalla sin alterar el contenido del programa. 


PAUSA de t/50 segundos. t puede valer cualquier 
número comprendido entre 1 y 32766. 


Después de una sentencia PAUSE se aplica esta 
otra. 


Estas son mis prioridades a la hora de efectuar operaciones matemáticas. 


1% — Ejecuto ante todo lo que hay dentro de los paréntesis. 
22  Transformo primero las potencias. 

32 Después multiplico y divido. 

4% — Después sumo y resto. 


5 A igualdad de prioridades opero de derecha a izquierda. 


Basta de esto ¡A aplicarlo! 


(1) Tanto CARGA como GUARDA son ejemplos y equivalen al nombre que 
tenga el programa. 


SI QUIERES ENTONCES DECIDO 


Hasta el momento me has dado ordenes concretas y yo no he tenido que 
complicarme la vida. 


En lenguaje de programación BASIC (que es el que yo manejo) hay una sen- 
tencia para tomar decisiones que es muy fácil de entender .... para un inglés: 


Y que exactamente quiere expresar cosas como ésta: 
Si (IF) A = 5entonces (THEN) vete a (GOTO) 110. 


Que viene a decir: Si la variable numérica A es igual a 5 entonces vete a la lí- 
nea de programa 110. 


Esto dicho en BASIC sería: 


IFA=5 THEN GOTO 110 
(De no cumplirse esta condición seguiría a la próxima línea de programa- 
ción). 
Veamos un ejemplo: 
Si (1F) LS > = WS entonces (THEN) imprime (PRINT) “PEPE”. 


O lo que es igual: Si la variable de caracteres L$ es mayor o igual que la varia- 
ble de caracteres W$ entonces imprime PEPE. 


Escrito como una instrucción de programa: 
IFLS=WS THEN PRINT “PEPE” 


Si se cumple la condición imprimo PEPE y, en cualquier caso, sigo a la 
próxima línea de programación. 


¿Otro ejemplo más? 


Mejor prueba tú. Cómo me dar ías en BASIC esta instrucción: 

Si (IF) la variable de caracteres V$ no es igual (<>) a Juan entonces (THEN) 
deja (LET) la variable numérica X igual a la variable numérica Y multiplicada 
por 787. 


¿Una ayudita? 


ES SI QUIERES ENTONCES DECIDO 


IF V$<> “JUAN” THEN LET X = Y * 787 


En la página anterior tal vez te haya causado sorpresa el hecho de comparar 
dos variables de caracteres. 


Pues es posible. 


Para mí las letras o conjuntos de letras tienen un “peso” y por tanto las pue- 
do comparar. 


Con este programa podrás ver mi criterio a este respecto: 


Programa Comentarios 


10 REM “COMPARAN- Este programa te compara letras entre sí o letras y 
RANDO EL ABCDARIO” textos o textos con textos. 


20 PRINT “DIME UNA 
LETRA” 


30 INPUT X$ 


40 PRINT “DIME OTRA 
LETRA” 


50 INPUT Y$ 


60 IF X$> YS THEN 
GOTO 90 


70PRINT Y$. “ES MA- Deja un espacio entre las comillas y el texto. 
YORQUE “<X$ 


80 GOTO 20 


90 PRINT X$; “ES MA- 
YOR QUE "“:Y$ Deja un espacio entre las comillas y el texto. 


100 GOTO 20 


Compara las letras del abecedario entre sí y luego palabras con palabras. 
Luego teclea números. 


El hecho de que yo pueda comparar letras y textos te será muy útil para 
ciertas aplicaciones. 


SI QUIERES ENTONCES DECIDO E 


Si tratas de listarme no podrás, ya que estoy a la espera de letras (más bien 
de caracteres en general), pero en ningún caso aceptaré sentencias como LIST 
o NEWLINE. Para salir del bucle, GOTO a página 46 y GOTO 52. 


Un problema sencillo. 


“Tu deseas darme cualquier número y que yo lo multiplique por 10 si es me- 
nor o igual que 100 y lo divida por 20 en cualquier otro caso y me pides que 
imprima la respuesta”. 


Mentalmente me dirías: 


“Espera (INPUT) una variable numérica. Si (IF) el valor de esa variable es 
menor o igual (< =) que 100, entonces (THEN) vete (GOTO) a una línea de 
programa donde dejes (LET) esa variable igual (=) a su valor multiplicado (*) 
10 y después imprime (PRINT) el resultado. 


En cualquier otro caso deja (LET) el valor de la variable igual (=) a su valor 
dividido (/) por 20 y después imprime (PRINT) el resultado”. 


Razona tranquilamente y ve desarrollando tu programa. Si te “encasquillas” 


estudia el programa que sigue y continúa intentando aplicar tus propias inicia- 
tivas. 


Programa de apoyo: 
1 REM”“UNPROBLEMA SENCILLO” 
10 PRINT “NUMERO?” 
20 INPUT A 
30 I|¡FA<=100 THEN GOTO 70 
40 LETA=A/20 
50 PRINTA 
60 GOTO 10 
70 LETA=A*10 
80 PRINTA 
90 GOTO 10 
En la línea de programa número 30 yo tomo una decisión: Si el número que 


tu me das (INPUT A) no cumple la condición (A < = 100), sigo a la línea de 
programa 40, si la cumple me voy a la línea de programa 70. 


SI QUIERES ENTONCES DECIDO 


Corre el programa. 


En la esquina inferior izquierda aparece una L con lo que te indico que estoy 
a la espera de un nuevo número, y así constantemente ya que los GOTO de las 
línras 60 y 90 (los dos únicos caminos que puedo seguir) me llevan siempre a la 
línea 10. 


Estoy en un BUCLE. 


Si ahora pretendieras listarme (LIST, NEWLINE) yo interpretaría LIST co- 
mo una cadena de caracteres (no como la Sentencia LIST), esto quiere decir 
que te daré un error 2/24, variable no definida en la línea de programación 20, 
lo cual es efectivamente cierto ya que yo esperaba la entrada de un valor nu- 
mérico y no de una cadena de caracteres. 


En todo caso para salir de un BUCLE lo mejor es provocar un error y apre- 
tar después LIST, NEWLINE. En este caso aprieta STOP, NEWLINE y después 
LIST, NEWLINE. Cuando por el contrario yo espere la entrada de caracteres 
(cosa que notarás por que la L estará entre comillas) la forma de salir del bucle es 
“borrar las comillas de la L'” y después STOP, NEWLINE. Así: 


19 RUBOUT (SHIFT, g) 
=> (SHIFT, 8) 
RUBOUT (SHIFT, 4) 
STOP, NEWLINE (ya tienes el error D/30) 
LIST, NEWLINE (ya tienes el listado). 


EJERCICIOS DE DECISION. 


DE AQUI PARA ALLA Y VUELTA A EMPEZAR ES 


Tan práctico como tomar decisiones te puede resultar mi capacidad de repe- 
tir lo que tú me digas y hasta que se cumpla lo que me ordenes. 


El lenguaje BASIC de programación fue inventado en los Estados Unidos y, 


como vas comprobando, es fácil de aplicar pero tiene el pequeño inconveniente 
de estar pensado en inglés. 


Si la sentencia que ahora vamos a estudiar se hubiera escrito en la Universi- 
dad de Salamanca, hubiera salido una cosa así: 


DESDE este valor HASTA este otro valor 


encuentres 
la 
sentencia 


SIGUIENTE valor 


ES DE AQUI PARA ALLA Y VUELTA A EMPEZAR 


Realmente la Sentencia BASIC es: 


NEXT 


Si no te acordaras de cual es la tabla de multiplicar del 9, podrías hacer este 
programa: 


Programa Comentarios 


REM “APLICANDO FOR” 

FORA=g TO 10 DESDE A = 9 HASTA 10 (1) 
LETB=A* 9 DEJAB=A*9 

PRINT B IMPRIME B 

NEXT A SIGUIENTE valor de A 


Esto me viene a decir: 


Desde (FOR) A = 0 hasta (TO) 10 deja (LET) B= A x 9 e imprime (PRINT) 
el valor de B. Vuelve a la Sentencia FOR y haz el SIGUIENTE ciclo con el SI- 
GUIENTE valor hasta (TO) el valor 10. 


Evidentemente podrías haber hecho un programa más “bonito”. Cambia la 
línea 30 por este otra: 


30'PRINT "9 por”; A: “ESB 


Deja un espacio en blanco (SPACE) entre las comillas y el principio y el fin 
decada texto: 9POR *“ ES *: 


(1) Nota: En esta Sentencia la variable (A en este caso) sólo puede ser UNA LETRA a diferencia de las 
anteriores que admitían más posibilidades. 


DE AQUI PARA ALLA Y VUELTA A EMPEZAR o 


Corre (RUN, NEWLINE) el programa. 
Dentro de un BUCLE FOR/NEXT puedes meter otro BUCLE FOR/NEXT. 


La única precaución que debes guardar es no cruzar los BUCLES. Te haré un 
esquema y después un ejemplo. 


FOR-A= TO 


FOR B 
) Primero ejecutaré este 
bucle completo con 
cada valor de A y 
todos los de B. 
Después sigo 


A ¡ 
NEXT B 


NEXT A 


¿Recordamos la tabla de multiplicar por 3, por 4 y por 5? 


t REM: “DOS BUCLES” 
10 FORA=3TO5 
20 FORB=g4¿T0O 10 
30 LETC=A*B 
20". PRINT:AS""POR"B: “ESC 
50 NEXT B 
60 NEXTA 


de DE AQUI PARA ALLA Y VUELTA A EMPEZAR 


Cuando lo corras observarás que te doy un mensaje (5/44) de que he llenado 
todas las líneas disponibles en la pantalla. Aprieta CONT, NEWLINE y observa. 


Te diré como funciono en los bucles. 


Cojo el primer valor del primer bucle (A = 3 en el caso anterior) y me voy a 
la siguiente línea de programa, como es otro bucle cojo el primer valor de este 
nuevo bucle (B = ¿ en este caso). 


A continuación multiplico el valor de A (que es 3) por el de B que es 4. Im- 
primo 3POR 4 ES 4. 


Me voy al siguiente valor de B que es 1 (sigo en el segundo bucle) y multipli- 
co A (que es 3 todavía) por el nuevo valor de B e imprimo: 


3POR 4 1 ES 3 


Y así seguiría en el segundo bucle HASTA (TO) el valor 10, que daría: 


3 POR 10 ES 30 


Al llegar a este último valor me iría a leer las órdenes de la línea 60, que me 
indican coger el siguiente valor de A del primer bucle que sería 4. 


Todo el proceso del segundo bucle lo repito pero con A = 4, 


Y así hasta (TO) llegar al valor 5 del primer bucle y al valor 10 del segundo 
bucle. 


Mientras nada me obligue a otra cosa, cada vez que voy al siguiente valor del 
siguiente ciclo, simplemente le sumo UNO al valor que tuviera la variable en el 
ciclo precedente. 


Por ejemplo: 
FORA=1T04 
Primer ciclo A = 1 
Segundo ciclo A = 2 


Tercer ciclo A = 3 


Cuarto ciclo A = 4 


A veces interesa que los valores los coja con una secuencia distinta a la 
unidad. 


Esto lo entenderé gracias a la Sentencia STEP, con lo cual yo sabré qué can- 
tidad sumar al último valor que haya tomado la variable en el ciclo precedente. 


DE AQUI PARA ALLA Y VUELTA A EMPEZAR 


Ejemplo: 
FORA=1T07 STEP 2 


Primer ciclo A = 1 
Segundo ciclo A = 3 
Tercer ciclo A= 5 


Cuarto ciclo A = 7 


Ahora te toca programar: 


Escribe un programa para hallar las raíces cuadradas (SOR) de los números 
pares entre O y 20. 


Compara tu solución con la que te doy a continuación. 
Programa de apoyo: 
tr “REM STEP: 


10 FORA=0 TO 20 STEP 2 
20 LETB=SOR A 

30 PRINT B 

40 NEXT A 


Este mismo programa un poco más completo podría ser: 


1 (¡REM*“STEP” 
10 FORA=0g TO 20 STEP 2 
20 LETB=SOR A 
30 PRINT“LA RAIZ CUADRADA DE”; A; “ES”, B 
40 NEXTA 


Lo que viene a decir que desde (FOR) A = O hasta (TO) 20, y de dos en dos 
(STEP 2), deja (LET) B igual a la raiz cuadrada (SOR) de A e imprímelo. Vuel- 
ve al siguiente valor del siguiente ciclo. 


De aquí a EJERCICIOS DE REPETICION y si dudas vuelta a empezar. 


SUBRUTINAS 


Desde ahora me declaro un tipo rutinario, corriente no, pero me gustan las 
rutinas. 


Es más, si no tengo rutinas que seguir no puedo trabajar. 


Obviamente cualquier programa es una rutina. Y esa rutina será la que siga 
mientras no me des otro programa. 


Así pues, si asimilamos programa a rutina, una subrutina será un subpro- 
grama. 


¿... y que es un subprograma o una subrutina? 


Pues una subrutina es un programa, con principio y fin que está dentro del 
programa principal y que puede ser usado por este tantas veces como lo ne- 
cesite. 


Ahora bien ¿cómo sabré yo que tu quieres que yo vaya a la subrutina? 


Me lo dices así: 


VETE A LA SUBRUTINA 
que en BASIC es: 


GOSUB 


Un ejemplo ayudará a aclarar esto: 


Teclea de nuevo el programa de la página 51. 


Supongamos que quisieras, para mayor claridad, introducir una línea de guio- 
nes entre cada pregunta y su contestación. 


Para ello vamos a crear una SUBRUTINA. ¿Tienes listado ya el programa de 
la página 51? Sin borrar ese listado escribe este programa: 
Programa Comentarios 
200 PRINT”" Esto será una subrutina como ya verás. 
210 RETURN Esta palabra inglesa significa retornar o volver. 


Este programa está compuesto por las líneas 200 y 210 y para correrlo inde- 
pendientemente de las líneas de programa comprendidas entre 1 y 90, deberás: 


Proceso Comentarios 


1% Teclear RUN 200 Esto me obliga a “correr” el programa a partir 
de la línea 200 


2% NEWLINE (por su- 
puesto) 


En la pantalla aparecerá arriba y abajo un mensaje 7/210 con lo 
que se indica que he cumplido la instrucción recibida en la línea de programa 
200 y por eso he imprimido las 6 rayitas, pero que la línea de programa 210 no 
la puedo ejecutar porque para volver (RETURN) tengo que saber a donde 
dirigirme. 


Ahora tenemos dos programas independientes, el primero va de la línea 1 a la 
90 y el otro de la 200 a la 210. 


Hagamos del segundo una SUBRUTINA del primero convirtiendo todo en un 
sólo programa. 


Lista todo de nuevo (LIST 1, NEWLINE). 


Introduce estas dos líneas de programa: 
Proceso Comentarios 


55 GOSUB 200 Vete a la subrutina de la línea 200. 
85 GOSUB 200 Vete a la subrutina de la línea 200. 


Corre el programa desde el principio, es decir: 


12 Teclea RUN 1 
22 NEWLINE (claro) 


En la pantalla te aparece: NUMERO? 
Escribe, por ejemplo, 20. 


En la pantalla te aparece: 


NUMERO? 


ES SUBRUTINAS 


Prueba con otro número mayor que 100, p. ej., 600 y tendrás: 


NUMERO? 
NUMERO? 


NUMERO? 


Vaya. ¿Qué ha pasado aquí? 
Lista el programa desde el principio (LIST, NEWLINE). 


(Recuerda que estás en un bucle y a la espera de la entrada de un número. Si 
aprietas STOP, NEWLINE provocas un error, con lo cual sales del bucle y ya 
puedes listar el programa). 


Yo he seguido todas tus instrucciones ordenadamente, de tal forma que al 
llegar a la línea 55 ó 85, según el caso, me encuentro con que me dices “vete 
a la subrutina que empieza en la línea 200”, GOSUB200. Bien, pues allá me 
voy y leo PRINT ” ””, es decir “imprime seis rayitas”. Las imprimo y 
sigo a la línea 210 que me ordena tajante: “retorna” (RETURN). Así lo hago y 
vuelvo .. . a la línea de programa inmediata siguiente a la instrucción GOSUB 
que me mandó a la subrutina. 


Hecho esto continúo con el programa como si nada hubiera ocurrido. 


Esta subrutina estaba formada por dos líneas de programa, pero imagínate 
que hubiera tenido 100 líneas de complicados cálculos. Imagínate además que 
no conoces las Sentencias GOSUB, RETURN y, consiguientemente hubieras te- 
nido que escribir todas las instrucciones (las 100), tantas veces como las necesi- 
taras. 


¿Qué no te lo imaginas? 


¿Con qué esas tenemos? Pues entonces: 


GOSUB EJERCICIOS CON SUBRUTINAS y RETURN a la página 61. 


¿ARRAYS? 


Una de guerra ... no importa contra quién. 
La batalla va a comenzar. 


Los jefes y oficiales de las fuerzas a tu mando se reunen contigo, que es 
quien tiene la responsabilidad de la operación, para recibir instrucciones res- 
pecto a la forma de distribuir las tropas. 


Todos esperan, ansiosos, tus Órdenes. 
Los miras y les dices: 
“Señores, que cada cual se ponga donde le plazca”. 


El combate comienza necesitándose urgentemente la colaboración de la 
artillería, tus ayudantes buscan a los artilleros y no los encuentran. 


Igual sucede con los infantes, los carros blindados, la intendencia... 


Salvo que tu eventual enemigo quede desconcertado por tu “estrategia”, el 
resultado de esta imaginaria batalla está claro. 


Lo usual es preparar un orden de combate que permita hacer maniobrar a 
las distintas unidades según convenga y de forma rápida y precisa. 


Vamos a hacer un esquema. 


e ARRAY DE CARACTERES 


DISPOSICION ESQUEMATICA DE LAS TROPAS 


FUERZAS 
DE 
COMBATE MANDO 


SECTOR INFANTERIA | CORONEL 

1 1 VALIENTE 

ENEMIGO SECTOR INFANTERIA | CORONEL 
2 2 BRAVO 
SECTOR CARROS CAPITAN 
3 1 ACERO 


SECTOR ARTILLERIA | CAPITAN 
á 101 OBUS 


IMAGINARIO SECTOR INFANTERIA | CORONEL 
5 3 AUDAZ 

SECTOR INFANTERIA | CORONEL 
6 4 VIVO 


En este supuesto hay 6 sectores de combate. 
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Si hubiera 3000 y te resultara imprescindible saber qué fuerzas hay en el sec- 
tor 1121 y quien las manda, quizás te puedas imaginar el lío. 


Para hacer el ejemplo fácil de manejar por mí (sólo tengo una K) y de seguir 
por tí lo dejaremos como está en el esquema. 


RECUERDA: 


Una variable de caracteres queda representada por UNA SOLA LETRA se- 
guida del símbolo $. 


En función de lo que ya conoces, el significado de F$ representa una variable 
de caracteres y nada impide que la hagas igual a cualquier cadena de caracteres. 


ARRAY DE CARACTERES EN 


Por ejemplo: 


FS = “INFANTERIA — 1” 
Por idénticas razones podrías escribir: 
I$= “CORONEL VALIENTE” 
y de esta forma podrías seguir: 


A$ = “INFANTERIA — 2” 
B$ = “CORONEL BRAVO” 
C$= “CARROS-— 1” 

ES = “CAPITAN ACERO” 
F$ = “ARTILLERIA 101” 
G$ = “CAPITAN OBUS” 
HS = “INFANTERIA — 3” 
I$ = “CORONEL AUDAZ” 
K$ = “INFANTERIA — 4” 
L$ = “CORONEL VIVO” 


. . , eh 
Y así, continuarías hasta que... 


se acaben las letras y te hubieras quedado sin variables y poco o nada hubieras 
conseguido. 


Vamos a usar un ARRAY de caracteres. 


Anticipo que hay dos tipos de ARRAY: 


— numéricos (trabajan con variables numéricas) 


— caracteres (trabajan con variables de caracteres) 


KS ARRAY DE CARACTERES 


Compara las instrucciones anteriores con las que siguen. Estudia las diferen- 
cias y los comentarios. 


Comentarios 


FS (1) = “INFANTE- 
RIA-1” A la variable de caracteres F$ la hemos convertido 
en F$ (1) esto, en argot, sería decir: 


EFE DOLAR DE UNO O EFE DOLAR SUBUNO, 
es decir, una variable de caracteres con subíndice 
(representado por (1)), es igual, en este caso a 
INFANTERIA-1. 


Observa que la cadena de caracteres INFANTE- 
RIA-1 tiene 12 caracteres. 


FS (2) = “INFANTE- 
RIA-2” EFE DOLAR DE DOS es igual a una cadena de 
caracteres de 12 caracteres. 


FS (3) = “CARROS-1" También podrías decir que EFE DOLAR DE 
TRES tiene 8 caracteres. 


FS. 14F="“ARTILLE- 
RIA-101” También: EFE DOLAR SUB 4 tiene 14 caracteres 


FS (5) = "INTANTE- 
RIA-3” FS (5) tiene 12 caracteres. 


FS (6) = “INFANTE- 
RIA-4” FS (6) tiene 12 caracteres. 
En este caso F$ es el prefijo y el número entre paréntesis es el sufijo. 


Compara las instrucciones anteriores con las que siguen. 


Comentarios 


FS (1,12) EFE DOLAR DE-UNO; DOCE-D0' EFE DE DO: 
LAR SUB UNO, DOCE. Esto quiere decir que la 
variable de caracteres F$ (1) puede tener hasta 12 
caracteres. 


ARRAY DE CARACTERES os | 


Comentarios 


FS12,12) FS (2,12). La variable de caracteres F$ (2) puede 


tener hasta 12 caracteres. 


FS (3,8) La variable F$ (3) puede tener hasta 8 caracteres. 


FS (4,14) 
FS (5,12) 


La variable F$ (4) puede tener hasta 14 caracteres 


F$ (5) puede tener hasta 12 caracteres. 


FS.16,12) FS (6) puede tener hasta 12 caracteres. 


De todas las variables de caracteres F$ anteriores, la que admite más carac- 
teres es, en este caso, la F$ (4,14). 


El número total de variables cuyo prefijo sea F$ es 6. 


Si yo me encontrara en una línea de programa, la instrucción DIM FS 
(6,14) inmediatamente reservaría en mi memoria espacio suficiente para acep- 
tar 6 variables de caracteres que empiecen por F$ y que puedan tener hasta 
14 caracteres. 


En nuestra “batalla”” hemos asimilado DIM F$ (6,14) a 6 “sectores de com- 
bate”” en los cuales hay unas tropas que puedes denominar como quieras siem- 
pre que tengan hasta 14 caracteres. En este caso F$ es el prefijo. 


Si escribieras DIM J$ (6,15), y siempre referido al esquema de la página 62, 
estarías en condiciones de darme 6 “Jefes al mando” cuya denominación no 
tenga más de 15 caracteres. En este caso J$ es el prefijo. 


Bueno, pues esto son ARRAYS de caracteres: 


“Conjuntos de variables de caracteres con el mismo prefijo y el mismo lí- 
mite de cantidad de caracteres que puede aceptar”. 


Ejemplo: 


Si yo me encuentro la instrucción: 
DIM L$ (100,25) 


yo la interpretaría como: 


“Dimensiona un conjunto de 100 variables de caracteres que todas tengan el 
prefijo L$ y que sean capaces de aceptar hasta 25 caracteres cada una”. 


Bueno. ¿Y qué? Dirás tú. 


No seas impaciente y sigamos con nuestro ejemplo. 


ES ARRAY DE CARACTERES 


A través de las sentencias DIM yo sé las dimensiones y las denominaciones 
de los ARRAY que voy a utilizar... pero estos ARRAY están vacíos porque no 
contienen información. Están disponibles. 


En nuestra “batalla” tu utilizas F$ para introducir en mi memoria, por sec- 
tores, las Fuerzas de Combate y J$ los Jefes de las mismas. 


¿Cómo me lo debes decir? 


Empecemos a programar usando ARRAY de caracteres: 


Programa Comentarios 


30 DIMFS$ (6, 14) Me ordena dimensionar un ARRAY de carac- 
teres de 6 variables y hasta 14 caracteres y cuyo 
prefijo es F$. 


De momento está vacío. No contiene nada. 


40 DIMJS$ (6, 15) Me ordena dimensionar un ARRAY de caracte- 
res de 6 variables y hasta 15 caracteres y cuyo 
prefijo es J$. 


De momento está vacío. No contiene nada. 


5O0'PRINT “SECTOR? *; Me ordena imprimir “SECTOR?”. (Deja 2 espa- 
cios entre ? y ””). 


60 INPUT S Espero la entrada de un número, que en nuestro 
caso deberá estar comprendido entre 1 y 6 ambos 


inclusive y que corresponderá a ''un sector de 
combate”. 


70PRINTS Imprimo el valor de S después de “SECTOR”? 
puesto que el; de la línea 50 me obliga a ello. 


80 PRINT “FUERZAS? ”; Imprimo “FUERZAS? “dejando dos espacios en- 
tre ? y ”. El ; obliga a la siguiente impresión a po- 
nerse justo a continuación. 


90 INPUT F$ (S) Espero la entrada de una variable de caracteres. 


Por tener el prefijo F$ yo introduciré este valor 
en el ARRAY dimensionado en la línea 30. 


La S entre paréntesis tendrá el valor que haya re- 
cibido en la línea 60. 


ARRAY DE CARACTERES 


El número de caracteres está fijo y definido en la 
línea 30, no puede pasar de 14. 


Esto quiere decir que si el valor de S (que tú da- 
rás al correr el programa, a través del teclado) 
fuera por ejemplo 2, yo estaré esperando que me 
fijes el valor de la variable F$ (2.14). 


El ARRAY se va llenando. Va conteniendo infor- 
mación. 


100 PRINT F$ (S) Imprimo el texto que hayas introducido en la lí- 
nea 90 y justo a continuación de lo impreso por 
la línea 80. 


MOPRINT-JEFEZ Ss Imprimo JEFE? dejando dos espacios entre ? y 
”. El ; obliga a la siguiente impresión a poner- 
se justo a continuación. 


120 INPUT J$ (S) Vale el mismo comentario de la línea 90 pero re- 
ferido al prefijo J$ y al array dimensionado en la 
línea 40, 


130 PRINT J$ (S) Imprimo el texto que hayas introducido en la lí- 
nea 120 y justo a continuación de lo impreso por 
la línea 110. 


140 GOTO 50 Me ordena: VETE a la línea 50. 


Nota: A partir de ahora, cuando quieras correr un programa no aprietes 
RUN, NEWLINE es mejor que sigas este procedimiento: 


19 GOTO (número de la línea de programa desde donde quieres hacer 
funcionar el programa). 


27 NEWLINE 


Ya te explicaré la razón más adelante. 
¿Has introducido ya el programa? 
Teclea: GOTO 30, NEWLINE. 

En la pantalla aparece: SECTOR? 
Aprieta 1 y NEWLINE. 


ES ARRAY DE CARACTERES 


Ahora te pregunto: FUERZAS? 
Teclea: INFANTERIA-1 y NEWLINE. 
JEFE? 

Teclea: CORONEL VALIENTE. 


(Observa como si dejas un espacio entre CORONEL y VALIENTE yo te im- 
primo CORONEL VALIENT). 


¿Sábes por qué? Porque sólo admito 15 caracteres. 
Vuelvo a preguntarte SECTOR?, después FUERZAS?, JEFE? 


Deberás seguir este ciclo 6 veces que son los sectores de combate y que, por 
otro lado, es el número máximo de variables de caracteres que voy a admitir 
(DIM F$ (6.14) y DIM J$ (6.15)). 


Prueba a meter un sector 7 y te daré un mensaje de error 3/90 con lo cual te 
digo que el subíndice 7 está fuera de la dimensión que me has dado y que por 
esa razón estoy parado en la línea 90. 


Lista el programa de nuevo (LIST, NEWLINE). ¿Lo has hecho? 


Probablemente pienses que ya no sé que fuerzas hay en el sector 3 y quien 
las manda. 


Vamos, vamos... teclea. 
Comentarios 


PRINT FS (3) Me ordena imprimir el valor que tengo en memo- 
ria para la variable FS$ (3). 


Y ahora 


PRINT JS (3) Lo mismo para la J$ (3). 


A veces pienso que me menosprecias. 


Si acaso se te ocurriera correr el programa apretando RUN, NEWLINE, te 
obedecería claro, pero borraría el contenido de todas las variables por eso es 
mejor usar GOTO seguido del número de la primera línea de programa útil. 


Este programa lo puedes llamar “BATALLA”. 


Vete a la página 24, sigue sus instrucciones y guarda (SAVE) este programa, 
tal como está, en un casete. 


ARRAYS NUMERICOS ER 


Desconéctame. 


Ahora vuelve a cargarme (LOAD). ¿Ya? (instrucciones en página 22). 


Aprieta: 


PRINT FS (5) (NEWLINE, claro). 


Y después: 
PRINT J$ (5) (¡ino te olvides nunca de NEWLINE!). 


¡Toda la información está guardada en el casete! Tanto el programa como el 
contenido de las variables. 


Lista el programa (LIST, NEWLINE). 


Para tener una visión general de los sectores, las fuerzas y sus jefes deberás 
añadir estas líneas: 


Comentarios 


150 FORS=1TO6 Con este bucle FOR NEXT la variable S coge 

todos los valores del 1 al 6, imprimiendo S, dejan- 
IGO-PRINT.S. + do un espacio, imprimiendo F$ (S), dejando un 
FS (51: 1815) espacio e imprimiendo J$ (S). 


170 NEXTS 
Para obtener esta información te verás obligado a teclear: 


GOTO 150, NEWLINE, ya que si teclearas: 


GOTO 50, NEWLINE el programa correría hasta la línea 140 donde la Sen- 
tencia GOTO 50 situada en la línea 140 me haría empezar de nuevo. 


Prueba ambas alternativas. 


Graba en el casete este programa sobre el anterior. Lo puedes llamar “BA- 
TALLA”. 


Manejar arrays con soltura es de mucha utilidad. 


Repasa bien este capítulo y haz los EJERCICIOS CON ARRAYS DE CA- 
RACTERES. 


ARRAYS NUMERICOS 


Supongamos ahora que acabas de comprar una tienda de ropa y me quieres 


usar como caja registradora. 


Supongamos tambien que, de momento, tienes tres artículos en stock: ar- 
tículo 1, artículo 2 y artículo 3, y los precios unitarios de venta son 10, 20 


y 30 europesetas. 


Para que yo te pueda ser útil debes diseñar un programa que me haga fun- 
cionar como una caja registradora. 


Con los conocimientos de BASIC que tienes hasta ahora, este podría ser un 


primer programa: 


Programa 


1 REM “CAJA REGIS- 
TRADORA” 


3LETA=9 
4LETB=06 
5LETC=0G 
10 CLS 


15PRINT “ARTICULO 
Ne? 


20 INPUT N 


25 PRINT “UNIDADES 
VENDIDAS? 


30 INPUT V 

35 LETP1 =16 
40 LET P2= 24 
45 LET P3=36 


50 IF N= 1 THEM LET 
A=P1*V 


Comentarios 


Con estas instrucciones doy valor ($) a las varia- 
bles A, B y C, las cuales representarán el impor- 
te de la venta por artículo (1, 2, 3). 


Limpio la pantalla. 


Estas dos instrucciones piden el número de iden- 
tificación del artículo (1,2 Ó 3). 


Estas dos instrucciones piden la cantidad vendi- 
da del artículo anterior. 


Se definen los precios de los artículos (P1, P2, 
P3). En este ejemplo hemos supuesto 10, 20 y 30 
europesetas. 


Según el artículo vendido determino el impor- 
te de la venta. 


ARRAYS NUMERICOS 


55 IF N=2 THEM LET 
B=P2*V 


60 1F N=3 THEM LET 
C =P3*V 


65 LET T =A+B+C T representa el total sucesivo. 


70PRINT “OTRO AR- Esta bifurcación me lleva al principio del progra- 
TIGULO? SN” ma si hay otro artículo vendido o nos da el total 
por venta si hemos llegado al final. 
75 INPUT R$ 


80 IF R$="“S" THEM 
GOTO 10 


95 PRINT:AT-21,:0; 
“TOTAL VENTA”, T 


Es evidente que, si para una tienda con tres artículos, has necesitado un 
programa de 17 líneas de programa, para el caso de 3.000 artículos hubiera sido 
una tarea de “chinos” confeccionar el programa. 


Para evitarte esta tediosa tarea el BASIC dispone de los arrays numéricos. 


Si recuerdas el caso de los arrays de caracteres, los subíndices representaban: 
el primero el número de variables de caracteres que lo integraban y el segundo 
el número de caracteres máximos que forman cada variable. 


En los arrays numéricos, por el contrario, los subíndices sólo fijan una, y 
sólo una, de las variables numéricas que integran el array. Nada más. 


El array numérico se representa en la misma forma que los caracteres, pero 
sin el símbolo $. 


Todo array numérico debe ir precedido por la sentencia DIM —letra— seguida 
por un paréntesis donde se indique el número de variable que contenga, P. EJ.: 


ARRAY Variables que comprende 
DIM P (6) P11),P 2), P18).:P-141,P0(5), P 46) 


CPALOPIL2,. POS) 
PL ASP) 


DIM P (2,3) 


ARRAYS NUMERICOS 


A A a 
DIM P (3,2) PAZ PAZ 2) 
PAS:0)7P:18,2) 


En los ejemplos anteriores los tres arrays pueden contener el mismo número 
de variables: 


1x6 = 6 variables. 
2x3 = 6 variables 
3x2 = 6 variables 
El programa de la caja registradora podría quedar transformado, usando un 
array numérico y siguiendo las instrucciones anteriores, en: 
Programa Comentarios 


1LETC=9 


5 DIMP (3) Dimensiono un array numérico de tres variables 
numéricas denominado P (P (1), P (2) y P (3)). 


Aquí almacenaré los precios de los tres artículos 
(1, 2,3). Ahora esta vacío. 


10 DIM T (3) Dimensiono otro array de las mismas caracter ísti- 
cas que el anterior pero denominado T. 


15 FOR'X=1TO'3 Este bucle FOR/NEXT cogerá, como ya sabes, los 
valores 1, 2 y 3 sucesivamente, preguntando por 

20'PRINT “PRECIO los precios de los artículos 1, 2 y 3. De esta mane- 

DEL ARTIÍCGULO"=X< o cogerá los valores P (1) = 10, P (2) = 20 y 
P (3) = 30. 


25 INPUT P (X) 
30 NEXT X 


39: LS Hecho lo anterior, limpio la pantalla. Las variables 
numéricas están definidas. 


ARRAYS NUMERICOS 


40 PRINT “ARTICULO 
NUMERO?” Aquí propiamente empieza el programa de caja 

registradora y pregunto por el número del artícu- 
lo vendido. 


50 INPUT N 


55 PRINT “UDS. VEN- 
DIDAS?” 


Determina el número de unidades vendidas del 
artículo anterior. 


60 INPUT V 


65 1F P (N) <> y THEN 
LETT=P(N)*V 


Según el artículo vendido (N) determino el pre- 
cio de la venta. 


JOLETC=61 Contador cuyo valor será primero 1, luego 2 y 
finalmente 3. 


ILLES TAC Instrucción que me sirve para poder dar valor a 
las tres variables que configuran el array definido 


en la línea 10. 


80 PRINT “OTRO Esta bifurcación me lleva al principio del progra- 


ARTICULO?” ma si hay otro artículo vendido o me indica que 
sume el valor de las tres variables del array DIM 
85 INPUT R$ e imprima el resultado. 


90 1F R$="S"” THEN 
GOTO 35 


95 PRINT AT21, O; 
“TOTAL VENTA”, 
TEE TIL E TAS) 


A simple vista puede que te parezca más largo este programa que el anterior, 
no obstante, con pequeñas modificaciones, podrías tenerlo dispuesto para cual- 
quier cantidad de artículos. 


Debes recordar que, una vez valoradas las variables del array de precios P (1), 
P (2) y P (3), no hace falta que cada vez que uses el programa les vuelvas a dar 
valores, para ello no aprietes RUN y NEWLINE ya que así borras el contenido 
de todas las variables. Bastará con que teclees GOTO 40, y NEWLINE y así 
pasar a correr el programa desde la pregunta “ARTICULO NUMERO?” 


Si te interesa conocer el contenido de alguna variable, P (2) por ejemplo, 
bastaría con que apretaras: PRINT P (2), NEWLINE y en el ángulo superior 
izquierdo yo te diré el valor de esa variable. 


EJERCICIOS CON ARRAYS NUMERICOS 


SUBCADENAS 


Yo puedo leer cadenas de caracteres. Eso ya lo sabes. 


Y también puedo leer algunos caracteres consecutivos de cualquier cadena 
más grande. A estas cadenas contenidas en otras mayores se les llaman sub- 
cadenas. 


El siguiente programa te presenta todas las formas de troceado que yo ad- 
mito. 


Programa Comentarios 


10 LET AS = “ROMAR- 
BELLAVE* 


La variable A$ es valorada. 


20 PRINT AS (TO 4) 


Imprimo todos los caracteres desde el principio 
hasta el cuarto, de la A$. 


30 PRINT A$ (3 TO 10) Imprimo todos los caracteres desde el tercero al 
décimo, ambos incluidos, de la A$. 


40 PRINT A$ (8 TO) Imprimo todos los caracteres del octavo al final 
de la A$. 


50 PRINT AS (6 TO 6) Imprimo el sexto caracter exclusivamente. 


60 PRINT AS (1 TO 12) 


Imprimo la cadena del principio al final. Igual 
resultado obtendrías con PRINT AS. 


70 LET B$= A$ (6 TO 10) 


Dejamos la variable B$ igual a la subcadena A$ 
indicada. 


ALGUNOS CONSEJOS POSTERIORES 


El código de errores te orientará casi siempre para saber por qué no quiero 
seguir funcionando. 


A veces el mensaje de error te lo daré yo colocando una S (en negativo) en 
en lugar donde se halla producido el fallo de Sintaxis (o forma de escribir) en el 
lenguaje BASIC. En estos casos bastará con que desplaces el cursor hasta donde 
está situada la S y rectifiques oportunamente. P. ej.: 


TO-PRINT.J" : al apretar NEWLINE aparecerá la S a la izquierda 
de la J, indicando que faltan “comillas”. 


No obstante, habrá ocasiones en que, aún sabiendo que el error es de sinta- 
xis, no sabrás cuál es la causa. En esta situación lo mejor, y probablemente más 
rápido, será borrar la línea y buscar otro modo de darme la instrucción. 


El consejo anterior es igualmente válido para el caso de otro tipo de errores. 


No olvides que yo entiendo sólo las sentencias cuando me las das a través de 
la tecla correspondiente. No trates de escribirlas. Por ejemplo: 


10PRINT Apretar sólo P....BIEN 


10PRINT Apretar P 
R 
| 
N 
- 


OTROS COMANDOS Y FUNCIONES 


Hasta aquí te he explicado la parte del lenguaje BASIC que podría ser más 
difícil de interpretar por tu cerebro. 


En este epígrafe tienes una relación de ciertas instrucciones que son útiles 
según el tipo de aplicación que vayas a desarrollar. 


Cada uno de estos comandos o funciones va acompañado de un texto acla- 
ratorio y un ejemplo para fijar las ideas y está agrupado con otros de su mismo 
tipo. 


Funciones aritméticas 
Funciones Comentarios Ejemplo 


ABS Respondo con el valor absoluto del nú- PRINTABSC 
mero o del valor de la variable que si- 
gue a la instrucción. 


Respondo con el valor del antilogarit-  PRINT EXP 
mo natural del número o del valor de 0.69314718 
variable que sigue a la instrucción. 


Respondo con el valor del logaritmo PRINT LN 2 
natural del número o del valor de la va- 
riable que sigue a la instrucción. 


Respondo con el valor entero del nú- INT 10.9 =10 
mero o del valor de la variable que si- INT -10.9 = -11 
gue a la instrucción. 


Respondo un valor menor que 1 e END:> 10 
igual o mayor que O. Esta instrucción 
no va seguida de ningún valor. 


Respondo -1, $ ó 1 según que el nú- LETC = (A+B)*SGN B 
mero o el valor de la variable numé- 

rica sea menor que $, cero propiamen- 

te O mayor que 4. 


Funciones aplicadas a cadenas de caracteres 


Función Concepto Ejemplo 


CODE Respondo al código numérico que PRINT CODE “A” 
tiene para mi tiene el primer carác- 
ter de la cadena de caracteres que 
siga a la instrucción. 


OTROS COMANDOS Y FUNCIONES 


Funciones Comentarios Ejemplo 


CHR$ Respondo el carácter correspondien- PRINT CHR$ 38 
te al código numérico que siga a la ins- 
trucción. 

IN KEYS Esta instrucción no va seguida de nin-  |FINKEYS$=" ” 


gún valor. THEN'STOP 
Interpreto la tecla con el cursor en L. 


Respondo el número total de caracte-  10LETAS$=“ABCD” 
res que componen una cadena de ca- 
racteres o una variable de caracteres 20 PRINT LEN AS 


Sólo puede ir seguida de un número o  STR$20= “20” 
una variable numérica, transformando 
ese valor en una cadena de caracteres. 


Sólo puede ir seguida de una cadena VAL 78" = 78 
o variable de caracteres; transforman- 
do esa cadena en un número, siempre TO LETAS= "10" 
y cuando la cadena previa esté forma- 
da por caracteres que represente dí- 20 LETB=VAL A$ 
gitos. 

30PRINT B 


FAST Cuando leo esta instrucción trabajo cua- 20 FAST 
tro veces más rápido. 


SLOW Cuando leo SLOW vuelvo a la velocidad 30 SLOW 
normal. 


SCROLL Mueve el contenido de la pantalla una  10LETA-=1 
línea hacia arriba. 


20 SCROLL 
30 PRINT A 
40LETA=A+1 


50 GOTO 20 
Paro la ejecución de un programa. 
Un programa parado con un STOP 


puede arrancar de nuevo con esta 
instrucción. 


SEGUNDA PARTE 


Practicando el BASIC 
con el ZXa8l 


CONTENIDO ES 


Comentarios a los ejercicios 


Ejercicios de paldula ae e a Da rl A 83 


Soluciones 


Ejercicios de modificación 


Soluciones 


Ejercicios con textos 


Soluciones 


Ejercicios con variables de caracteres 


Soluciones 


Ejercicios de impresión en pantalla 


Soluciones 


Ejercicios con Goto 


Soluciones 


Ejercicios de decisión (IF/THEN) 
Soluciones 


AS IEC RON CO UA MOS E A A 
E CT ROO ER OE UR 


ATI A E RE E A RR A NR 


Ejercicios de subrutinas 


E A CR A A E AT A AN 


Soluciones 


PE PI JET SENO EA ATENTO OA INSERTE AA EA ETA EA EA a AE 


Ejercicios con ARRAYS de caracteres 
Soluciones 


COMENTARIOS A LOS EJERCICIOS 


Como complemento a la primera parte de “*La pequeña gran puerta”, damos 
esta colección de ejercicios con el objetivo de afianzar los conocimientos adqui- 
ridos. 


Todos los problemas están agrupados en bloques correspondientes con los 
epígrafes tratados en la teoría y van acompañados de sus correspondientes so- 
luciones. 


Las soluciones que proponemos no son, por supuesto, únicas o excluyentes, 
siendo probable que usted desarrolle ideas perfectamente válidas y aceptables 
por su ZX81 en su configuración mínima de 1K RAM. 


En cualquier caso vea y analice los comentarios que acompañan a algunos 
programas, ya que le sugerirán nuevos caminos y/o le aclararán algunos concep- 
tos. 


Le recomendamos que se esfuerce en buscar la respuesta a los ejercicios antes 
de dirigirse a la solución de los mismos, los cuales, por otra parte, han sido pen- 
sados de acuerdo con el grado de dificultad que el estudiante de este nivel pue- 
de resolver. 


La práctica hará más por su aprendizaje que muchas horas de teoría. 


EJERCICIOS DE CALCULO 


Haz los siguientes programas que te permitan respectivamente: 


12 — Sumar hasta diez números que tu des a través del teclado. 
2% Sumar los dos primeros números y restar el tercero. 


3 Sumar los dos primeros números y restar el tercero, multiplicando el 
resultado anterior por un cuarto número. 


4 Elevar cualquier número a cualquier potencia. 


52 Hallar la raíz cuadrada de un número. 


Intenta razonar como “entendería”' yo cada cuestión. ¿Una ayudita? 


Ayuda al ejercicio 3 


“Espera la entrada (INPUT) de un número que llamarás A. Después espera la 
entrada (INPUT) de otro número que llamarás B. Después espera la entrada 
(INPUT) de otro número que llamarás C. Después espera la entrada de otro nú- 
mero que llamarás D. 


Después deja (LET) E igual a la suma (+) de A y B. 
Después deja' (LET) F igual a la resta (-) de E y C. 
Después deja (LET) G igual al producto (*) de F por D. 


Te aconsejo que antes de empezar a programar escribas el programa en tér- 
minos parecidos a los ejemplos anteriores. 

Una solución a estos ejercicios la tienes a continuación. 

Siempre que empieces a teclear un programa no olvides limpiar mi memoria. 


Para ello tienes dos caminos, o bien desconectas el jack de entrada de corriente, 
o bien aprietas NEW, NEWLINE. 


Ayuda al ejercicio 5 


“Espera la entrada (INPUT) de un número que llamarás A. Después deja 
(LET) C igual a la raíz cuadrada (SQR) de C. Después imprime el valor de C. 


SOLUCIONES 


Ejercicio 1 

Programa Comentarios 

¡“REM "EJERCICIO 1” La instrucción REM no afecta al programa. Sólo 
sirve para recordarte aquello que tú quieras resal- 
tar. 

10 INPUT N1 Estas instrucciones me ordenan esperar la entrada 
de 10 números. 

20 INPUT N2 

30 INPUT N3 Repasa en la página número 18 y recordarás lo 
que es una variable numérica. 

40 INPUT N4 

50 INPUT N5 También podrías haber usado las variables numé- 
ricas A, B, C, D, etc., en vez de N1, N2, N3, etc. 

60 INPUT N6 

70 INPUT N7 


80 INPUT N8 


90 INPUT N9 

100 INPUT N10 

110 LETS=N1 + N2 + Me ordena “dejar”” la variable numérica S igual a 
+ N3 + N4 + N5 + N6 + la suma de las variables N1, N2, etc. 

+ N8 + N9 + N10 


120PRINTS Me ordena “imprimir” el valor de S. 


RECUERDA: 


12 No olvides apretar NEWLINE después de completar cada línea del 
programa. P. ej. 


Escribe 10 
Aprieta INPUT 
Escribe N1 
Aprieta NEWLINE 


SOLUCIONES ES 


79 


Para correr (RUN) el programa, es decir, para hacerlo funcionar, 
aprieta RUN, NEWLINE. 


Ejercicio 2 


Programa Comentarios 


REM" "EJERCICIO27 REM no afecta al programa, sólo sirve para “re- 
cordarte”” textos. 


10 INPUT A Espero la entrada de la variable numérica A. 


20 INPUT B 


Espero la entrada de la variable numérica B. 


30 INPUT C Espero la entrada de la variable numérica C. 


40LETD=A+B Dejo D igual a A + B. 


SO'LET«E=D:=€ Dejo E igual a D - C. 


60PRINT E Imprimo el valor de E. 


Ejercicio 3 


(Hay una solución alternativa en la página 87. (Ejercicio 3A)). 


Añade las siguientes líneas de programa al programa del ejercicio 2. 


35 INPUT PF Espero la entrada de la variable numérica F. 


5ULE76=E>.b Al escribir esta línea de programa (y apretar 
NEWLINE por supuesto) borras la anterior y “*de- 


ja” la variable G igual a E * F. 


70PRINT G 


Imprimo el valor de G. 


Si quieres puedes ir grabando (SAVE) estos programas en un casete y así 
tendrás una colección de ejercicios grabados y, en todo caso, practicas la graba- 
ción (SAVE) y carga (LOAD) de programas. 


ES SOLUCIONES 


Ejercicio 4 


Programa 


1 REM “EJERCICIO 4” 
10 INPUT X 
20" 1NPUT Y 


SULETIZL=X""Y 


40PRINT Z 


Ejercicio 5 


Programa 

REM: “EJERCICIOS” 
10 INPUT A 

20 LETB=SOR A 


30PRINT B 


Comentarios 


X es la variable que representa la base. 
Y es la variable que representa el exponente. 


** (SHIFT, H) me ordena elevar X a la poten- 
cla Y. 


Comentarios 


SOR me ordena extraer la raíz cuadrada de A. 
SOR se obtiene así: 


12 SHIFT, NEWLINE simultáneamente (el cursor 
cambia a F) 


2% SOR (debajo de la tecla H). 


SOLUCIONES 


Ejercicio 3A 


Programa Comentarios 


1 REM “EJERCICIO 3A” 
10 INPUT A 

20 INPUT B 

30 INPUT C 

40 INPUT D 

SO LEFTE=(A+B=0)*D 
G0OPRINT E 


EJERCICIOS DE MODIFICACION 


Ejercicio 6. Si tienes el ejercicio 1 grabado en un casete, cárgalo (LOAD) en 
mi memoria, si no teclea el programa de nuevo. 


Cuando lo tengas listado (LIST, NEWLINE) en la pantalla conviértelo de for- 
ma que sirva para sumar sólo dos números. 


Ejercicio 7. Convierte este último en el programa del ejercicio 3. . 


Ejercicio 8. Convierte este último en el programa del ejercicio 3A. 


SOLUCIONES ES 


Ejercicio 6 

Proceso Comentarios 

30 NEWLINE Cualquier número de línea de programa seguido 
de NEWLINE borra el contenido que pudiera te- 

40 NEWLINE ner esa línea de programa. 

50 NEWLINE 

60 NEWLINE 

70 NEWLINE 

80 NEWLINE 

90 NEWLINE 


100 NEWLINE 


Ahora desplaza el puntero hasta la línea 110 apretando SHIFT y 6 simultá- 
neamente. 


Edita (EDIT) esta línea apretando SHIFT y 1. 
La K está entre 110 y LET. Aprieta SHIFT y 8. 


La K cambió a L. Sigue apretando SHIFT y 8 hasta que la L esté situada a la 
derecha de N10. 


Empieza a borrar (RUBOUT) apretando SHIFT y ¿ hasta que la L se sitúe a 
la derecha de N2. 


Aprieta NEWLINE. 
El programa está modificado. Ya puedes correrlo (RUN, NEWLINE). 


Sólo podrás sumar dos números. 


Ejercicio 7 
Proceso Comentarios 


30 INPUT C Introduce esta línea (no olvides NEWLINE). 


(TTSTETE=S=6 Introduce esta línea de programa. 


ES SOLUCIONES 


Desplaza el cursor hasta la línea 120 mediante SHIFT y 6. 
Edita (EDIT) la línea 120 (SHIFT y 1). 
Borra la S y sustitúyela por E. 


En este punto el programa funciona exactamente ¡igual que el del ejercicio 2, 
aunque las variables usadas sean distintas. 


So IINPUTE Introduce esta línea de programa. 

120: LETG>=E*C Sustituimos la línea 120 (que ya no será útil) por 
esta otra que cumple la función de multiplicar 
E por C. (La variable F del ejercicio 3 es aquí 


la C). 
130 PRINT G Imprime el valor de G. 


En este ejercicio debes concluir que no importa el número de línea de pro- 
gramación que utilices con tal de que sea mayor que el número de la línea an- 
terior y, menor que el de la línea siguiente: ¡lo único importante es que yo 
sepa el orden con que debo realizar mis operaciones! 


Graba en tu casete el programa modificado. 


Ejercicio 8 


Carga (LOAD) en mi memoria el programa anterior. 


Proceso Comentarios 


Te aconsejo que cambies todas las variables a las 
que figura en el ejercicio 3A. 


VMOLETE=1(A.+ Sustituye la línea 110 por esta otra. 
+ B -—C),*D 


115 NEWLINE Borra las instrucciones contenidas en las líneas 
de programación 115 y 120 dejándolas “vacías”. 
120 NEWLINE 


130 PRINT E Es más rápido escribir esta línea (por su longitud) 
que editarla. 


SOLUCIONES ES 


Corre (RUN, NEWLINE) el programa y haz algunas pruebas. 


Para acabar estas prácticas sobre modificaciones y cambios te enseñaré un 
buen truco. 


Si quieres “editar” una determinada línea de programación puedes evitarte 
la rutina de bajar o subir el “puntero” simplemente apretando LIST seguido del 
número de la línea de programa que te interese modificar (y NEWLINE, claro). 


De esta forma el puntero saldrá en la línea deseada y sólo tendrás que editar 
(SHTET, 1 


Prueba LIST 110. 


¿Vale? ... de nada, de nada. 


ES EJERCICIOS CON TEXTOS 


Ejercicio 9. Lista el programa del ejercicio 8. 


¿Cómo harías para que la pantalla te pregunte?: 
NUMERO 1? (antes de darme el primer número) 
NUMERO 2? (antes de darme el segundo número) 
NUMERO 3? (antes de darme el tercer número) 


NUMERO 4? (antes de darme el cuarto número) 


Ejercicio 10. Sobre el resultado del ejercicio 9. ¿Cómo harías para que des- 
pués de darme cada número yo lo imprima a continuación del NUMERO? co- 
rrespondiente 


Ejercicio 11. Sobre el resultado del ejercicio 11. ¿Cómo harías para que te 
imprima “EL RESULTADO =" y a continuación el valor de E? 


¡No mires las soluciones! 


Primero inténtalo tú. Estos humanos ... 


SOLUCIONES ES 


Ejercicio 9 

Proceso Comentarios 
5 PRINT “NUMERO 1?” Añade esta línea 

15PRINT “NUMERO 2?” Añade esta línea 

25 PRINT “NUMERO 3?” Añade esta línea 

32 PRINT “NUMERO 4?” Añade esta línea 


Deja un espacio (tecla SPACE) entre NUMERO 
y el número y entre ? y las ”. 


Córrelo (RUN, NEWLINE). Mi respuesta te la doy justo debajo de NUMERO 
47”. 

Ejercicio 10 

Proceso Comentarios 


Lista el programa (LIST, NEWLINE) 


Añade un punto y coma (;) al final de las líneas de programa 5; 15; 25 y 32. 


12PRINTA Añade esta línea 
22 PRINT B Añade esta línea 
> PRINTG Añade esta línea 
37 PRINTD Añade esta línea 


Corre (RUN, NEWLINE) el programa modificado con algunos números y 
compruébalo. 


Prueba a quitar los ; de las líneas 25 y 32. ¿Dónde pongo los números con 
respecto a los dos primeros? 


. ¡Ah! Los puntos y comas me atraen ... 


ES SOLUCIONES 


Ejercicio 11 
Proceso Comentarios 


Lista el programa (LIST, NEWLINE) 


120.PRINT "EL RESUL: Añade esta línea 
TADO? 


Corre (RUN, NEWLINE) el programa con cuatro números cualquiera y prue- 
ba esta otra posibilidad: 


Proceso Comentarios 


120 PRINT “EL RESUL- 
TADO ="; E 


130 NEWLINE Borro la línea 130 


Corre (RUN, NEWLINE) esta variación con los mismos (u otros) cuatro 
números. 


¡El resultado es ¡igual! 


La Sentencia PRINT te acepta la posibilidad de concatenar textos y variables 
numéricas por medio de comas (,) y puntos y comas (;). Así puedes eliminar | í- 
neas de programa innecesarias. 


Prueba a sustituir el punto y coma de la línea 120 por una coma y corre el 
programa de nuevo. 


Verás que el resultado se ha separado un poco. Tiene una explicación: “La 
coma me obliga a empezar a imprimir a partir de la columna 16”. 


EJERCICIOS CON VARIABLES DE CARACTERES ES 


Ejercicio 12 


Escribe un programa que te pregunte tu nombre y que, al dárselo, imprima: 


HOLA tu nombre 
RECUERDA: 
PROGRAMAR SERA TAN NECESARIO COMO LEER 


Ejercicio 13 
Haz un programa que te pregunte primero tu nombre, después tu apellido, tu 
teléfono y por último tu dirección, y que cada respuesta quede registrada en 
una variable de caracteres. 
NOMBRE? 
APELLIDO? 
TELEFONOS 


DIRECCION? 


Ejercicio 14 


Haz un programa que te pregunte tu profesión y tu edad y que cada respues- 
ta quede registrada en una variable de caracteres. 


Ejercicio 15 


Ir directamente a su solución. 


SOLUCIONES 


Ejercicio 12 


1. REM “EJERCICIO 13" 


PRINT “TU NOMBRE” 


10 
20 INPUT N$ 


30 PRINT “HOLA”; N$ 


40 PRINT “RECUERDA:” 


50 PRINT “PROGRAMAR SERA TAN NECESARIO COMO LEER” 


Ejercicio 13 


Programa Comentarios 


1 REM “EJERCICIO 13” 
10 PRINT “NOMBRE?” 


20 INPUT N$ 


30 PRINT “APELLIDO?” 
40 INPUT A$ 


SO PRINT “TELEFONO?” 


60 INPUT TS$ Aunque la entrada sea un número yo lo voy a 
considerar como una cadena de caracteres, ya que 
lo asocio a una variable de caracteres denominada 


TS 


70PRINT “DIRECCION?” 


80 INPUT D$ 


Sigue los pasos que te indico a continuación y aprenderás algo realmente in- 
teresante. 


SOLUCIONES 


Proceso Comentarios 


12 RUN, NEWLINE Con esta instrucción me ordenas que corra el pro- 
grama, es decir (como ya sabes), que lo haga fun- 


cionar. 


PERO ADEMAS PONGO A CERO (DEJO VA- 
CIAS) TODAS LAS VARIABLES NUMERICAS 
Y DE CARACTERES. 


25 Contesta a las preguntas: nombre, apellido, etc. 


32 PRINT AS, Con esta instrucción me ordenas que imprima el 
NEWLINE valor de A$ 


Te daré tu nombre en la esquina superior dere- 
cha. 


Prueba con las otras variables. 


AHORA NO BORRES ESTE PROGRAMA. No aprietes RUN. INTRODUCE 
A CONTINUACION EL PROGRAMA DEL PROXIMO EJERCICIO 


Ejercicio 14. 


Tal como sigue: 


Proceso Comentarios 


1 REM “EJERCICIO 14” 
10PRINT “PROFESION?” 


20 INPUT Z$ Observa que utilizo una variable de caracteres (Z$) 
distinta a las usadas en el ejercicio 13. 


30 PRINT “EDAD?” 


40 INPUT Y$ Vale el comentario de la línea 20. 


50 PRINT “NOMBRE:”; Yo mantengo en mi memoria al valor de N$ del 
NS programa anterior al margen de que haya en mi 
memoria un programa nuevo .. . siempre que no 
me hayas desconectado o apretado RUN o NEW 
o uses las mismas variables en el programa nuevo. 


ES SOLUCIONES 


60 PRINT “APELLI- Yo mantengo el valor de las variables mientras 
DOS: AS que tu no las cambies. 


70PRINT “TELEFO- 
NO:”; TS 


80 PRINT “DI REC- 
CION=<"7DS 


90 PRINT "PROFE- 
SIONO"-ZS 


100 PRINT “EDAD:”; Y$ 


ATENCION: No corras el programa con RUN. 


A partir de ahora usa GOTO (seguido del primer número de línea de progra- 
ma), y NEWLINE como siempre. 


RECUERDA: Cuando usas RUN, NEWLINE yo correré el programa, pero 
ADEMAS TE BORRO EL CONTENIDO DE LAS VARIABLES. 


Por tanto aprieta, en este caso, GOTO 1 (o cualquier número anterior a 10, 
ya que 10 es la primera línea de programa útil) y a continuación NEWLINE, 


Contesta a las preguntas del programa. 


Cuando lo hayas hecho, e inmediatamente, imprimiré toda la información 
que contienen las variables de caracteres que has utilizado y que tengo en me- 
moria. 


Me puedes listar como siempre (LIST, NEWLINE). 
Tendrás oportunidad de apreciar las ventajas de todo esto. 


De momento te aconsejo que guardes (SAVE) este programa en un casete, 
con los valores que tengan las variables. Lo llamaremos “EJERCICIO 14”. 


Lo utilizaremos en el ejercicio 15. 


Ejercicio 15 


Supongo que has guardado el programa anterior. 


Habrás notado lo práctico que es el cuenta vueltas de tu magnetofón para sa- 
ber dónde empieza cada programa... 


SOLUCIONES ES 


Bien, carga (LOAD) el ejercicio 14. 


¿Ya lo has hecho? 


RECUERDA: Si aprietas RUN, NEWLINE te quedas con el programa en mi 
memoria, pero “borro” el contenido de las variables. 


Vamos a hacer pruebas: 


Prueba Resultado 
1% Aprieta GOTO 50 Impresión en pantalla de tus datos 


2% Aprieta GOTO 1 Te pregunto tu profesión. Si me das otra distin- 
ta, sustituiré el valor de la variable Z$. 


Igual sucederá con Y$ 


Varía estos datos. 
Observa el resultado. 


No grabes en el casete esta modificación. 


Este ejercicio ha tenido por objeto mostrarte que las variables también pue- 
den ser “guardadas”' en el casete. 


EJERCICIOS DE IMPRESION EN PANTALLA 


Ejercicio 16 

Haz un programa que te imprima automáticamente un * en la esquina supe- 
rior izquierda de la pantalla, otro en el centro y otro en la esquina inferior de- 
recha. (Usando PRINT AT). 

(No olvides que las dos últimas líneas no están disponibles para tí). 


Repite el programa poniendo a continuación del * las vocales AEIOU. 


Ejercicio 17 


Sabr ías hacer el programa anterior usando PRINT y PRINT TAB. 


Ejercicio 18 
Carga (LOAD) el “EJERCICIO 13” en mi memoria. 


Cambia el programa (SIN ALTERAR EL CONTENIDO DE LAS VARIA- 
BLES) de forma que imprima los textos a la izquierda de la pantalla y el conte- 
nido de las variables de caracteres a partir de la columna 20 y en la misma línea 
(Usa PRINT TAB). 


SOLUCIONES E 


Ejercicio 16 
Programa Comentarios 
REM "EJERCIGIONO” 


1IOPRINT-*" También vale PRINT TAB 9; “*” o PRINT AT 
6,04; *'” con una columna de variación. 


20PRINT AT 10,116;“*'” — También podrías haber escrito: 
ZO -RRINT, 
JO0:-PRINTATZT, 328% 


Ejercicio 17 
Programa Com Comentarios 
1 REM “EJERCICIO 17” 
TO PRINTE*" 
20 PRINT Una instrucción PRINT sin nada a continuación 
me obliga a dejar una línea en blanco. 
30 PRINT 
40 PRINT 
50 PRINT 


60 PRINT 


70PRINT Este procedimiento de espaciar las líneas de im- 
presión en pantalla es incómodo y consume una 
80 PRINT gran capacidad de memoria. 


90 PRINT 
100 PRINT 
VMIO:PRINT TAB 16;%*” 
120 PRINT 


ES SOLUCIONES 


Programa Comentarios 


130 PRINT 

140 PRINT 

150 PRINT Acostúmbrate a usar PRINT TAB, PRINT AT y 
siempre que puedas punto y coma (;) y coma (,) 

160 PRINT 

170PRINT 

180 PRINT 

190 PRINT 

200 PRINT 

210 PRINT 

220 PRINT 


230 PRINT TAB" 


Ejercicio 18 


Programa Comentarios 


50PRINT “NOMBRE”; Cambia la línea 50 por ésta. 
TAB 20; N$ 
Fíjate como se ha colocado aquí TAB. 
GD PRINT”APELEIDOS:”: 
TAB 20; A$ 


70 
80 Cambia tú estas líneas 


90 


SOLUCIONES 


Cuando hayas acabado las modificaciones y quieras comprobar el resultado, 
deberás apretar GOTO 50, de esta forma yo te correré el programa desde la | í- 
nea 50 sin borrar las variables y sin hacerte las preguntas que van en las líneas 
de programa anteriores. 


¿Has seguido mis instrucciones? 


Bueno, pues ahora aprieta GOTO 1 y ¿a ver cómo te las ingenias para que te 
dé la impresión por pantalla ... sin alterar el contenido de las variables? 


Nada, nada ¡Estás en un bucle! 


ES EJERCICIOS CON GOTO 


Ejercicio 19 


Haz un programa que imprima las vocales (A, E, |, O, U) una debajo de otra 
en la pantalla y hasta que esta se llene. 


Usa instrucciones PRINT y GOTO. 


Ejercicio 20 


¿Se puede cambiar el valor numérico de la instrucción GOTO por una varia- 
ble numérica? 


Ejercicio 21 


Haz el ejercicio 19 usando PRINT AT, GOTO y,, 


SOLUCIONES 0 


Ejercicio 19 


Programa Comentarios 


10PRINT “A” 
Z0PRINTAE” 
JOPRINT 
40 PRINT “0” 
DO-PRINT.=U" 
60 GOTO 10 


Hasta que te dé un error 
de pantalla llena 


ES SOLUCIONES 


Ejercicio 20 


Si se puede. Cambia la línea 60 del programa anterior por 60 GOTO X y 
ahora introduce LET X = 10 (sin número de línea) y aprieta NEWLINE. 


El programa correrá igual que antes ya que a X le hemos dado: el valor 
10. 


Prueba haciendo: 
LET X = 20 
LET X= 30 
LET X= 40 
LET X = 50 


Ejercicio 21 
Programa Comentarios 
5LETC=0 5. Se define el valor de la variable C. 
10PRINTATC, O;“A”,, 
ie A E, E LS 10. La doble coma obliga a un salto de línea im- 
primiendo por tanto para cada valor de C: 
A 
E 
| 
O 
U 


Z0LETC=C€>+b Esta línea deja a C igual al valor anterior que tu- 
viera más cinco y, así, obtenemos. 


SOLUCIONES 107 


Programa Comentarios 


30 GOTO 10 


EJERCICIOS DE DECISION (IF/THEN) 


Ejercicio 22 


Desarrolla un programa que te diga: 


PASE o ESPERE, según el color Verde o Azul de un semáforo. El color lo 
introduces tú por el teclado. 


Ejercicio 23 


Para ser candidata a Mis Universo se debe medir más de 1,7 metros y pesar 
menos de 60 kilos. 


¿Podrías hacer un programa en que dando el nombre, estatura y peso de 
cada aspirante te diga si reúne o no los requisitos mínimos? 


Ejercicio 24 
¿Qué tendrías que hacer en el programa anterior para que la Srta. Juanita 


del Enchufe y Alto Voltaje fuera admitida, sea cual fuere su talla y peso, en el 
concurso de belleza anterior? 


Ejercicio 25 


Qué instrucciones pondrías al principio de un programa para que sólo funcio- 
nara con las personas que conozcan la “clave secreta””? En el ejercicio anterior 
por ejemplo. 


SOLUCIONES ; ES 


Ejercicio 22 


Programa Comentarios 


10 PRINT “COLOR?” Para obtener caracteres en negativo debes trabajar 
en modo gráfico: 


15 INPUT C$ 
1 Aprieta 
SHIFT y 9 (GRAPHICS) 


25 IF C$="ROJO” THEN (el cursor cambia a G) 
GOTO 40 


20 PRINT CS 


2% Teclea tu texto 
30 PRINT AT 14,10 “PASE” Escribe PASE Y ESPERE en negativo. 


35 GOTO 50 3% Para volver al modo normal repite la opera- 
ción primera. 

40 PRINT AT 14,10; 

“ESPERE” 


50 PRINT AT 21,0; “OTRO 
COLOR?” 


55 INPUT R$ 


60 IF R$= “NO” THEN 
STOP 


65 CLS 

70 GOTO 10 

Ejercicio 23 

Programa Comentarios 
5 PRINT “NOMBRE?”, 

10 INPUT N$ 

11 PRINT NS 

15PRINT “TALLA?”, 

20 INPUT T 

21. PRINT T 


X SOLUCIONES 


ZorPRINT “PESO?R, 
30 INPUT P 
31 PRINTP 


35 |1FT<> 1,7 0RP<> 60 THEN GOTO 70 Observa cómo la operación 
lógica OR implica que la ins- 

40 PRINT N$, “ADMITIDA” trucción THEM se cumpla 
cuando alguna de las condi- 

45PRINT AT 21,0; “OTRA CANDIDATA?” ciones IF es cierta. 


50 INPUT O$ No confundas la letra O con el número 4 
55 IF O$= “NO” THEN STOP 

60 CLS 

65 GOTO 5 

70 PRINT N$, “RECHAZADA” 


75 GOTO 45 


Ejercicio 24 
Modifica la línea 35: 


35|FT<1,770RP> 60 THEN IF N$ <> “JUANITA DEL ENCHUFE” 
60 THEN GOTO 70 


Ejercicio 25 
Programa Comentarios 
1 PRINE"CGLCAVE?” 


2 INPUT C$ 


3 IF C$<> “CUALQUIER COMBINA- 
CION DE CARACTERES” THEN STOP 


5 PRINT “NOMBRE?” 
10 INPUT N$ 
11 PRINT NS 


«¿Sabes cual es la clave secreta? 


(¿Sabes.de qué color es el caballo blanco de .. .?) 


EJERCICIOS DE REPETICION 


Ejercicio 26 

Usando el ciclo FOR/NEXT haz un programa que te imprima la columna 
cero con la palabra “columna”. 
Ejercicio 27 


El mismo pero que se imprima en la columna 12. 


Ejercicio 28 
El mismo, pero que llene toda la pantalla. 
Ejercicio 29 
Añade las líneas de programa suficientes como para conocer el número de ve- 


ces que se ha imprimido la palabra **columna”' antes del error 5/26. 


Ejercicio 30 


Escribe un programa que te de en pantalla los números impares del 1 al 50, 
evitando el error de “pantalla llena”. 


Ejercicio 31 

Modifica el programa anterior de forma que sólo responda la suma de los nú- 
meros impares de 1 a 50. 
Ejercicio 32 

Escribe un programa que te imprima la palabra BASIC “parpadeando”. Uti- 
liza el modo gráfico y un bucle FOR/NEXT. 
Ejercicio 33 


Modifica el programa anterior de modo que el “parpadeo” sea más lento. 


3 EJERCICIOS DE REPETICION 


Ejercicio 34 


Con dos bucles FOR/NEXT enlazados crea una imagen de puntos en panta- 
lla similar a esta: 


Ejercicio de interpretación 


Cómo interpretas este programa: 


5 FORE=1T0 2 
10LETE=1 


20 LETA=2 

30 LETC=E+A 
40 PRINTC 

50 NEXT E 


SOLUCIONES ES 


Ejercicio 26 
Programa Comentarios 
5 FOR X=60T0 21 Se imprime la palabra “columna” 22 veces a par- 
tir de la columna ¿4 y línea tras línea. 
10PRINT “COLUMNA” 
20 NEXT X 


Ejercicio 27 
Programa Comentarios 


5 FOR X= 4 TO 21 


10PRINT TAB 12; TAB 12 obliga a comenzar en la columna 12 
“COLUMNA” 


20 NEXT X 


Ejercicio 28 
Programa Comentarios 


5 FOR X= € TO 21 El ; obliga a imprimir una palabra tras otra. La lí- 

nea 30 obliga a repetir el ciclo FOR/NEXT hasta 

1OPRINT “COLUMNA”; — obtener un error de “pantalla sin espacio de im- 
presión”, 


20 NEXT X 
30'GOTO'5 


Ejercicio 29 
Programa Comentarios 


ALETGE= 0 Hemos añadido un contador. 
5FORX=0%T0 21 
10PRINT “COLUMNA”; 


INEBTG=G-+1 Cada vez que el bucle pasa por aquí sumo una 
unidad. 
20 NEXT X 


30 GOTO 5 Cuando la pantalla se haya llenado, aprieta PRINT 
C y obtendrás el contenido de la variable C que 
es el contador. 


SOLUCIONES 


Ejercicio 30 


Programa Comentarios 
UIFOR:X= TODO STEP 2 
20PRINT X, 
30 NEXT X 


Ejercicio 31 


Programa Comentarios 
5LETC=0 
10 POR X= TO 50 STEP2 
ILLETOESCERX 
30 NEXT X 


35 PRINT AT 21,0; VALOR 
DELLA SUMA: 0006 


Ejercicio 32 


Programa Comentarios 


10 FORX=9g4 TO 100 Estos ejercicios pueden servirte a la hora de resal- 


tar ciertos resultados en tus futuros programas. 


20 PRINT AT 10, 15; Escribe la palabra BASIC de la línea 20 en negati- 
"BASIC" vo (modo gráfico) 


30 CLS 


40 PRINT AT 10,15; 
“BASIC” 


Escribe la palabra BASIC da la línea 40 normal - 
mente. 


50 NEXT X 


SOLUCIONES ES 


Ejercicio 33 


Programa Comentarios 


10 FORX=694TO01G Los bucles FOR/NEXT no se pueden cruzar, pe- 
ro, evidentemente, si se pueden suceder. 


20 PRINT AT 13,15; 
“BASIC” Escribe BASIC en negativo (línea 20) 


50 NEXT X 


60 FORX=49TO01G 


T70PRINT-AT 13,15: Escribe BASIC normalmente (línea 70) 
“BASIC” 


80 NEXT X 
90 GOTO 10 


Ejercicio 34 


Programa Comentarios 


10 FOR F=0+T0 21 Observa cómo varía el valor de entrada del segun- 
do bucle (C) con el valor de entrada del primero 
20 FORGC=FTO31 (F) y consiguientemente, el lugar de arranque de 


PRINT. 


SO-PRINTIAT ARE 


40 NEXT C 
50 NEXT F 


EJERCICIOS CON SUBRUTINAS 


Ejercicio 35 


¿Se te ocurre alguna forma de combinar el programa del ejercicio 34, con el 
del ejercicio 32, para que, convirtiendo éste en una subrutina de aquél, la pala- 
bra BASIC cruce parpadeando, la pantalla de izquierda a derecha? 


Ejercicio 36 


Escribe un programa para obtener la tabla de multiplicar por 5, separando 
cada número por una línea de aster íscos. 


5PORO=0 


KAKI 


5POR1=5 


TS 


5 POR 2=10 


XXX KAK AAA 


5 POR 3=15 


KAXKAXKKAX KK 


5 POR 4=20 


KAXAXKAX AX 


5 POR 5=25 


KAXAXXAXAK A 


5 POR 6=30 


XXX A 


5 POR 7=35 


KXAXXAXKKXKAK AR 


5 POR 8=40 


KAXXXAXAXA A 


5 POR 9-45 


KAXXAXKAXAXA KAR 


5 POR 10=50 


XAXKXXAXXAXAKAA 
Ejercicio 37 
Rediseña el ejercicio 1 con una subrutina de forma que te pregunte por pan- 
talla: “NUMERO?” antes de la entrada de cada número y te de las “GRACIAS” 
después. Limítalo a cinco sumandos. 
Ejercicio 38 


Como aprovecharías las subrutinas del ejercicio anterior para usarlas en las 
del ejercicio 3A. 


Nota: Pon las subrutinas al final de los programas. En la práctica usa las su- 
brutinas sólo si te ahorra trabajo personal e instrucciones. 


SOLUCIONES 117 


Ejercicio 35 

Programa Comentarios 

10 FOR F=0T0 21 En este ejercicio se anidan dos bucles FOR/NEXT 
con una subrutina. 

20" FOR C=FT1081 

30 GOSUB 90 

40 NEXT C 

50 NEXT F 

90 FOR Y= 6 TO 2 


100 PRINT.AT P.,.C: Escribe BASIC en negativo. 
"BASIC" 


110 CLS 


140 PRINT AT F,C; 
“BASIC” 


160 NEXT Y 
170 RETURN 


Ejercicio 36 


Programa Comentarios 
10 FOR X=0% TO 10 

20LETA=X*5 

S0PRINT"SPOR=">1: => A 


40 GOSUB 100 
50 NEXT X 


100 PRINT “*****x**.xx. 
110 RETURN 


ES SOLUCIONES 


Ejercicio 37 


Programa Comentarios 


5 GOSUB 100 Las subrutinas conviene ponerlas después de la úl- 
tima instrucción del programa. 

10 INPUT N1 
15 GOSUB 200 
16 GOSUB 100 
20 INPUT N2 
25 GOSUB 200 
26 GOSUB 100 
30 INPUT N3 
35 GOSUB 200 
36 GOSUB 100 
40 INPUT N4 
45 GOSUB 200 
46 GOSUB 100 
50 INPUT N5 
55 GOSUB 200 
70LETS=N1 + N2+ N3 + N4 + N5 
70-PRINT- LA SUMA. ES 5: . DE 


NADA” 
80 STOP 


100 PRINT “NUMERO?” 
110 RETURN 
200 PRINT “GRACIAS” 
210 RETURN 


SOLUCIONES 


Ejercicio 38 


En general puedes aprovechar cualquier programa como una subrutina de 
cualquier otro. Basta con que no olvides la instrucción RETURN y no duplicar 
las variables, con lo cual perderías información o provocarías errores. 


EJERCICIOS CON ARRAYS DE CARACTERES 


Ejercicio 39 


Dimensiona un array de caracteres que permita alojar 4 variables de caracte - 
res de hasta 5 caracteres cada una. 


Ejercicio 40 


Dimensiona otro array para 5 variables de hasta cuatro caracteres. 


Ejercicio 41 
¿Qué significan estas líneas de programa? 
10 DIM AS (15,5) 
15 DIM BS (15,5) 


Ejercicio 42 


Haz un programa que te permita dar valores automáticamente a las 4 varia- 
bles del array DIM AS$ (4,7). 


Ejercicio 43 
Interpreta este programa: 


10 DIM AS (4,7) 


20 DIM B$ (4,7) 
30 FOR X=1T04 
40 LET BS (5-X) = AS (X) 
50 NEXT X 


Ejercicio 44 


Escribe un programa que ponga en orden alfabético no más de 4 palabras de 
hasta 7 letras cada una. 


SOLUCIONES a 


Ejercicio 39 


DIM AS (4,5) 


Ejercicio 40 
DIM A$ (5,4) 


Ejercicio 41 


Los arrays en general se dimensionan al principio de los programas. 


En este caso tenemos dos arrays de caracteres (símbolo $) denominados A y 
B pudiendo contener cada uno de ellos 15 variables de hasta 5 caracteres. 


Ejercicio 42 


10 DIM AS (4,7) Si alguna de las 4 variables tuviera más de 7 carac- 
teres, yo ignorar ía el exceso. 


20 FOR X=1 TO 4 
30 INPUT A$ (X) 
40 NEXT X 


Ejercicio 43 


Se transfieren los valores de las variables contenidas en el array A$ al B$ de 
tal forma que A$ (1) = BS (4), AS (2) = BS (3) y así sucesivamente. 


Ejercicio 44 


Programa Comentarios 


10 DIM AS (4,7) 


Con las cuatro primeras instrucciones introduci- 


mos las palabras que valoran las variables de array. 
20 FOR X=1T04 


ES SOLUCIONES 


Programa Comentarios 

30 INPUT AS (X) 

40 NEXT X 

50 IF AS (1) <= AS (2) THEN GOTO 90 

60 LET B$= AS (1) Con el resto de las instrucciones se comparan to- 
das las variables de array ordenándolas, según el 

70 LET AS (1) = AS (2) “peso” relativo que yo tengo de ellas y que co- 
rresponde a su orden alfabético. 

80 LET AS (2) = B$ 

90 IF AS (2) <= A$ (3) THEN GOTO 1 40 


100 LET BS = AS (2) 


110 LET AS (2) = AS (3) 


120 LET AS (3) = B$ 
130 GOTO 50 

140 IF AS (3) <= AS (4) THEN GOTO 1 90 
150 LET B$ = AS (3) 
160 LET AS (3) = AS (4) 
170 LET A$ (4) = BS 
180 GOTO 90 

190 PRINT AS (1) 

200 PRINT AS (2) 

210 PRINT AS (3) 

220 PRINT AS (4) 


EJERCICIOS CON ARRAYS NUMERICOS 


Ejercicio 45 


Dimensiona un array numérico que pueda contener hasta 10 variables nu- 
méricas. 


Ejercicio 46 


Escribe un programa que te permita valorar las 10 variables numéricas del 
array anterior. 


Ejercicio 47 


Dimensiona un array numérico bidimensional que pueda contener hasta 10 
variables numéricas. 


Ejercicio 48 


Escribe un programa que te permita valorar las 10 variables numéricas del 
array anterior. Guarda en un casete el programa y el array valorado. 


Ejercicio 49 


Añade las instrucciones oportunas al programa anterior para que te pregunte 
si quieres conocer el valor de alguna de las variables del array, y, en caso afirma- 
tivo, te pregunte la fila y la columna, imprimiendo el contenido de esa variable 
en la pantalla. 


Ejercicio 50 


Carga el programa del ejercicio 48, y, sin modificar el valor de las variables, 
adapta el listado de forma que, automáticamente, se valoren las variables del 
array DIM W (2,5) con la condición de que los sucesivos valores del array A 
se multipliquen por 2 si son mayores que 50 y se eleven al cuadrado si son 
menores y se transfieran, con esta condición, al array W. 


SOLUCIONES 


Ejercicio 45 


DIM A (10) 


Ejercicio 46 


10 DIM A (10) 


20 FOR X= 1 TO 10 


30 INPUT A (X) 


40 NEXT X 


Ejercicio 47 
DIM A (2,5) 


Ejercicio 48 


10DIMA (2,5) 


20F0R.X=1 TO:2 
30 FOR Y=1 TO5 


JU. PRINT- VALOR Y DEL 


ARRAY NUMERICO A”” 


50 INPUT A (X, Y) 


60 NEXT Y 


70 NEXT X 


SOLUCIONES ES 


Ejercicio 49 


10 DIM A (2,5) 
20 FOR X= 1 TO 2 
30 FOR Y = 1 TO 5 
AO0PRINTS VALORA Y DEL 
ARRAY NUMERICO A” 
50 INPUT A (X, Y) 
60 NEXT Y 
70 NEXT X 
100 PRINT AT 20, 0; “QUIERES CONOCER 
EL VALOR DE ALGUNA VARIABLE? 
110 INPUT R$ 
115 CLS 
120 1F R$= “N” THEN STOP 
ISO :PRINT “FILA?” 
140 INPUT F 
145 PRINT F 
150 PRINT “COLUMNA?”, 
160 PRINT C 
165 PRINT C 
170 PRINT A (F.C) 
180 GOTO 100 


SOLUCIONES 


Ejercicio 50 
5 DIM W (2,5) 
10 DIM A (2,5) 
20 FOR X=1T0 2 
30 FOR Y=1T0O5 
52 IF A (X, Y) <= 50 THEN GOTO 57 
53 LET W (X, Y) = A (X, Y) *2 


57 LET W (X, Y) = A (X, Y) **2 


60 NEXT Y 
70 NEXT X 
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